var X: array [1..10] of integer; a,s,i: integer; begin randomize; write('Хотите заполнить массив самостоятельно? (1) Или автоматически? (2)'); readln(s); case s of 1: begin writeln('Введите 10 элементов массива: '); for i:= 1 to 10 do readln(X[i]); a:=X[1]; for i:= 1 to 10 do if a < X[i] then a:=X[i]; writeln('Максимальный элемент: ',a); end; 2: begin writeln('Массив: '); for i:= 1 to 10 do begin X[i]:=random(101); write(X[i]:4); end; writeln; a:=X[1]; for i:= 1 to 10 do if a < X[i] then a:=X[i]; writeln('Максимальный элемент: ',a); end; end; end.
Может стоит почитать Теорию нормальныхх форм для чайников, мне кажется такие задачи слишком формализуют математически, в википедии такого понаписано, что волосы дыбом встают!)) а по существу: я просто выбрал неправильные ответы исходя из того, что форма BCNF - это 3я нормальная форма без зависимости первичного ключа от неключевых атрибутов. Неключевыми атрибутами считаю date и major, (правда date автор так и не описала, какую дату оно означает). Поскольку в задании cName зависит сразу от нескольких функциональных зависимостей, то первый ответ - неверный, ибо это не 3я норм форма. ответ под номером 3 исключается исходя из того, что эти два декомпозирование исходные отношения не имеют ключевой зависимости между ними. ответ 4 имеет зависимости от полей date или major, являющихся составными. Удовлетворяет 3NF, но противоречит BCNF, поэтому думаю, что ответ под номером 2 - наиболее подходящий
X: array [1..10] of integer;
a,s,i: integer;
begin
randomize;
write('Хотите заполнить массив самостоятельно? (1) Или автоматически? (2)');
readln(s);
case s of
1: begin
writeln('Введите 10 элементов массива: ');
for i:= 1 to 10 do readln(X[i]);
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
2: begin
writeln('Массив: ');
for i:= 1 to 10 do
begin
X[i]:=random(101);
write(X[i]:4);
end;
writeln;
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
end;
end.