результаты соревнований по плаванию для 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.