program MaxNumber; var num, maxNum, count, maxCount: integer; begin maxNum := -9999; maxCount := 0; for count := 1 to 4 do begin write('Введите число ', count, ': '); readln(num); if num > maxNum then begin maxNum := num; maxCount := count; end; end; writeln('Наибольшее число: ', maxNum); writeln('Оно было введено под номером: ', maxCount); end.
Вы можете скопировать и вставить этот код в среду программирования Pascal, чтобы запустить его и ввести 4 числа с клавиатуры. После этого программа выведет наибольшее число и номер, под которым оно было введено.
Примерный код на Pascal:
program MaxNumber;var
num, maxNum, count, maxCount: integer;
begin
maxNum := -9999;
maxCount := 0;
for count := 1 to 4 do
begin
write('Введите число ', count, ': ');
readln(num);
if num > maxNum then
begin
maxNum := num;
maxCount := count;
end;
end;
writeln('Наибольшее число: ', maxNum);
writeln('Оно было введено под номером: ', maxCount);
end.
Вы можете скопировать и вставить этот код в среду программирования Pascal, чтобы запустить его и ввести 4 числа с клавиатуры. После этого программа выведет наибольшее число и номер, под которым оно было введено.