Базильевич
4 год назад
Напиши программу, в которой осуществляется ввод целых чисел(ввод осуществляется до тех пор, пока не будет введён ноль) и определения максимального из введённых чисел. Используйте оператор REPEAT. Даю 100 поинтов. Информатика, 8 класс
ОТВЕТЫ
Anastas
Oct 24, 2020
Предполагается, что будет введено минимум одно значение. 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.
625
Смежные вопросы:
