Вводится последовательность чисел Конец последовательности - 0 найти максимальное число. Паскаль абс

Question

Информатика

Михаля

18 апреля, 06:51

Вводится последовательность чисел Конец последовательности - 0 найти максимальное число. Паскаль абс

+3

Ответы (1)

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

Антося · Answer 1

Var a, max:integer;

begin

write ('a=') ; readln (a) ;

max:=a;

while a0 do begin

if a>max then max:=a;

write ('a=') ; readln (a) ;

end;

writeln ('max = ', max) ;

end.

Пример:

a=25

a=84

a=26

a=17

a=80

a=51

a=0

max = 84