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

Question

Информатика

Ионка

13 декабря, 16:23

Найти максимальное значение из 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.