Найти максимальное значение из 10 введённых чисел ** Паскале

Question

Найти максимальное значение из 10 введённых чисел на Паскале

Answer 1

Var
   A,Max,i:integer;
Begin
Write('Введите 10 чисел: ');
Read(A);
Max:=A;
For i:= 1 to 9 do
    Begin
    Read(A);
    if A>Max then Max:=A;
    End;
WriteLn('Max = ',Max)
End.

Answer 2

Var

Comments

По условию числа запросто могут быть и меньше нуля

---

У типа integer не фиксированный диапазон. в Турбо Паскале - да, [-32768..32767], в ABC уже [-2147483648..2147483647]