Вопрос, который вызвал трудности
Напишите программу нахождения максимального и минимального числа последовательности чисел(кол-во чисел неизвестно,числа вводятся с клавиатуры)
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
Var a,maxA,minA : Integer;
Begin
Readln(a);
minA:=a; maxA:=a;
Repeat
If a>maxA then maxA:=a;
If a Readln(a);
Until a=0;
Writeln('MIN: ',minA);
Writeln('MAX: ',maxA);
end.