Question

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

Answer 1

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.