Const N = 5; {количество спортсменов} var K : array [1..N] of integer; i, max : integer; begin for i := 1 to N do begin write('Результат спортсмена номер: ', i, ': '); readln(K[i]); end; max := K[1]; for i := 2 to N do if K[i] > max then max := K[i]; writeln('Максимальный результат: ', max); end.
N = 5; {количество спортсменов}
var
K : array [1..N] of integer;
i, max : integer;
begin
for i := 1 to N do
begin
write('Результат спортсмена номер: ', i, ': ');
readln(K[i]);
end;
max := K[1];
for i := 2 to N do
if K[i] > max then
max := K[i];
writeln('Максимальный результат: ', max);
end.