результаты соревнований по плаванию для N спортсменов хранятся в массиве K. Выбрать и напечатать лучший из них. Массив заполнить с клавиатуры.

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.