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

Question

Информатика

Василла

2 марта, 14:33

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

+1

Ответы (1)

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

Еммануил · Answer 1

Предполагается, что будет введено минимум одно значение.

var

max, a : integer;

begin

readln (a) ;

max : = a;

repeat

readln (a) ;

if (a > max) and (a 0) then

max : = a;

until a = 0;

writeln (max) ;

readln;

end.

P. S. Если понравилось решение не забудь отметить как лучшше.;)