Предмет: Информатика, автор: deymonddark

Последовательно вводятся n целых чисел. Найдите максимальное из них
Помогите пожалуйста

Ответы

Автор ответа: A1dar
0
Var
  N, X, Max, i: Integer;
Begin
  Max := 0;
  WriteLn('Введите количество чисел N: ');
  Read(n);
  WriteLn('Введите N чисел: ');
  For i := 1 To N Do
  Begin
    Read(X);
    If X > Max then Max := x;
  End;
  WriteLn('Максимальное: ', Max);
End.
Похожие вопросы
Предмет: География, автор: ksushagoncharuk
Предмет: Математика, автор: Аноним