Программирование по информатике

С клавиатуры вводится последовательность чисел не превышающих 10000. Найти и вывести максимальное положительное число.

Напишите программу на языке паскаль

Question

Информатика

Витюся

30 августа, 02:31

Программирование по информатике

С клавиатуры вводится последовательность чисел не превышающих 10000. Найти и вывести максимальное положительное число.

Напишите программу на языке паскаль

+3

Ответы (1)

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

Апфия · Answer 1

Var a, amax:integer;

begin

writeln ('Введите положительное число') ;

read (a) ;

amax:=a;

while a0 do

begin

if (a>amax) and (a>0) then amax:=a;

read (a) ;

end;

writeln ('Максимальное число равно ', amax) ;

end.