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

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

Ответы

Автор ответа: angryfukse
0
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.


Автор ответа: Аноним
0
По условию числа запросто могут быть и меньше нуля
Автор ответа: Аноним
0
У типа integer не фиксированный диапазон. в Турбо Паскале - да, [-32768..32767], в ABC уже [-2147483648..2147483647]
Автор ответа: Аноним
0
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.
Похожие вопросы