Написать программу, запрашивающую с клавиатуры целые числа и определяю-щую максимальное и минимальное из них. Окончание ввода – число 0. Протестиро-вать программу для последовательности: -3 5 6 -11 24 -1 0. ПАСКАЛЬ
Написать программу, запрашивающую с клавиатуры целые числа и определяю-щую максимальное и минимальное из них. Окончание ввода – число 0. Протестиро-вать программу для последовательности: -3 5 6 -11 24 -1 0. ПАСКАЛЬ
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program MaxMinNumbers;
var
num, max, min: Integer;
begin
Write('Enter a number: ');
Readln(num);
max := num;
min := num;
while num <> 0 do
if num > max thenbegin
Write('Enter a number: ');
Readln(num);
max := num;
if num < min then
min := num;
end;
Writeln('Maximum number: ', max);
Writeln('Minimum number: ', min);
end.