Question

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

Answer 1

var

   max, i, a: integer;

begin

   max := -32768;

   writeln('Введите последовательность чисел: ');

   for i := 1 to 10 do

   begin

     readln(a);

     if a > max then max := a;

   end;

writeln(max);

end.

Answer 2

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

Answer 3

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

Answer 4

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.