Напишите программу, в которой осуществляется ввод - вопрос №18667426 от Trinogie 22.05.2021 01:37

Question

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

Trinogie · Answer

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

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.