Введите с клавиатуры 4 числа. Вывести на экран номер наибольшего числа. Это по паскалю.
Введите с клавиатуры 4 числа. Вывести на экран номер наибольшего числа. Это по паскалю.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Program FindMax;
var
num1, num2, num3, num4, maxNum: Integer;
begin
writeln('Введите четыре числа:');
readln(num1);
readln(num2);
readln(num3);
readln(num4);
maxNum := num1;
if num2 > maxNum then
maxNum := num2;
if num3 > maxNum then
maxNum := num3;
if num4 > maxNum then
maxNum := num4;
if maxNum = num1 then
writeln('Наибольшее число - первое: ', num1);
if maxNum = num2 then
writeln('Наибольшее число - второе: ', num2);
if maxNum = num3 then
writeln('Наибольшее число - третье: ', num3);
if maxNum = num4 then
writeln('Наибольшее число - четвертое: ', num4);
end.