Запиши программу на языке программирования Паскаль.Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.
Запиши программу на языке программирования Паскаль.Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program FindMax;
var
num1, num2, num3, num4, num5, max: integer;
begin
writeln('Enter five integer numbers: ');
readln(num1, num2, num3, num4, num5);
max := num1;
if num2 > max then max := num2;
if num3 > max then max := num3;
if num4 > max then max := num4;
if num5 > max then max := num5;
writeln('The largest number is: ', max);
end.