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

Question

Информатика

Юлюся

10 февраля, 22:47

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

+1

Ответы (2)

Знаете ответ на вопрос?

Федюля · 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

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.