Составьте программу, определяющую максимальное из всех вводимых вами чисел. Концом ввода...

Question

Составьте программу, определяющую максимальное из всех вводимых вами чисел. Концом ввода чисел является введенное число 0. Для проверки подготовить код программы и результаты ее работы.

Answer 1

Код программы

program raf105;

var a,max:integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

a:=1;

while a<>0 do

begin

 readln(a);

 if a>max

   then max:= a;

end;

writeln('Максимальное число: ',max);

end.

Результаты работы программы

Вывод:

Вводите числа по очереди

чтобы закончить введите 0

Ввод:

12

1

100

99

105

104

2

3

0

Вывод:

Максимальное число: 105