Задать вопрос
8 июля, 10:05

Дано N чисел. НАйти максимальное число.

+4
Ответы (1)
  1. 8 июля, 11:45
    0
    var a, max: real;

    n, i: integer;

    begin

    max:=0;

    readln (n);

    for i:=1 to n do begin

    readln (a);

    if a>max then max:=a;

    end;

    writeln (max);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Дано N чисел. НАйти максимальное число. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы