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

Marka9696 Marka9696    3   29.08.2019 09:30    0

Ответы
Margo1961 Margo1961  31.08.2020 23:28
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.
ПОКАЗАТЬ ОТВЕТЫ
MCbelko MCbelko  31.08.2020 23:28
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.


ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика