Написать программу, запрашивающую с клавиатуры целые числа и определяю-щую максимальное и минимальное из них. Окончание ввода – число 0. Протестиро-вать программу для последовательности: -3 5 6 -11 24 -1 0. ПАСКАЛЬ

Предыдущий
вопрос Следующий
вопрос

program MaxMinNumbers;

var
num, max, min: Integer;

begin
Write('Enter a number: ');
Readln(num);

max := num;
min := num;

while num <> 0 do
begin
Write('Enter a number: ');
Readln(num);

end;

Writeln('Maximum number: ', max);
Writeln('Minimum number: ', min);
end.