Program chisla;
var i:byte;
begin
for i:=1 to 10 do
writeln(i);
end.
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99);
a.Println;
a.SortedDescending.Println;
end.
<u><em>Тестовое решение</em></u>
n= 17
-38 37 -82 54 62 -28 33 37 -61 63 -66 63 -81 -63 3 38 12
63 63 62 54 38 37 37 33 12 3 -28 -38 -61 -63 -66 -81 -82
Может стоит почитать Теорию нормальныхх форм для чайников, мне кажется такие задачи слишком формализуют математически, в википедии такого понаписано, что волосы дыбом встают!))
а по существу: я просто выбрал неправильные ответы исходя из того, что форма BCNF - это 3я нормальная форма без зависимости первичного ключа от неключевых атрибутов. Неключевыми атрибутами считаю date и major, (правда date автор так и не описала, какую дату оно означает). Поскольку в задании cName зависит сразу от нескольких функциональных зависимостей, то первый ответ - неверный, ибо это не 3я норм форма. Ответ под номером 3 исключается исходя из того, что эти два декомпозирование исходные отношения не имеют ключевой зависимости между ними. Ответ 4 имеет зависимости от полей date или major, являющихся составными. Удовлетворяет 3NF, но противоречит BCNF, поэтому думаю, что ответ под номером 2 - наиболее подходящий
Program gt;
var b:array[1..100]of integer;
r,i,n,q,min,t:integer;
begin
read(N);
q:=0;
for i:=1 to n do
begin
read(b[i]);
if(b[i]>0)then begin
q:=q+1;
if(q=1)then begin
r:=i;
t:=b[i];
end;
end;
end;
min:=b[1];
for i:=2 to n do
if(b[i]<min)then min:=b[i];
for i:=1 to n do
begin
if(b[i]=min)then b[i]:=t;
if(i=r)then b[i]:=min;
write(b[i],' ');
end;
end.
Ответ предоставлен в файле для лучшей читаемости кода.
