Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение максимального (наибольшего) из введёных чисел.Используйте оператор repeat. Решить в паскале.
More Questions From This User See All
Answers & Comments
begin
write('Введите число: ');
readln(a);
m:=a;
repeat
if a>m then m:=a;
write('Введите число: ');
readln(a)
until a=0;
writeln('Максимальное (наибольшее) из введёных чисел: ',m)
end.