Question

Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение максимального (наибольшего) из введёных чисел.Используйте оператор repeat. Решить в паскале.

Answer 1

var a,m:integer;
begin
write('Введите число: ');
readln(a);
m:=a;
repeat
if a>m then m:=a;
write('Введите число: ');
readln(a)
until a=0;
writeln('Максимальное (наибольшее) из введёных чисел: ',m)
end.