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

Question

Информатика

Любим

6 февраля, 21:36

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

+4

Ответы (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