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

Код программки

program raf105;

var a,max:integer;

begin

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

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

a:=1;

while alt;gt;0 do

begin

 readln(a);

 if agt;max

   then max:= a;

end;

writeln('Наибольшее число: ',max);

end.

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

Вывод:

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

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

Ввод:

12

1

100

99

105

104

2

3

0

Вывод:

Наибольшее число: 105