profile
Опубликовано 5 лет назад по предмету Информатика от minakoaino55555

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

  1. Ответ
    Ответ дан And42
    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.
Самые новые вопросы