напишите программу на языке паскаля через цикл while, которая определяет максимальное из введенных чисел с клавиатуры (ввод чисел заканчивается числом 0).

Question

Пашуха

13 августа, 07:50

+1

Ответы (1)

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

Фока · Answer 1

Program red;

var a, max:integer;

begin

max:=-10000;

readln (a) ;

while a0 do begin

if max
readln (a) ;

end;

writeln (max) ;

end.