ПОМОГИТЕ СРОЧНО
Написать программу, в которой бы с клавиатуры пользователь вводил четыре числа (тип данных
real). После этого программа выводила бы на экран номер наибольшего из них. Нумерация
начинается с 1 БЕЗ использования массивов
Написать программу, в которой бы с клавиатуры пользователь вводил четыре числа (тип данных
real). После этого программа выводила бы на экран номер наибольшего из них. Нумерация
начинается с 1 БЕЗ использования массивов
More Questions From This User See All
Answers & Comments
Ответ:
var max,n:integer;
c,nom:byte;
begin
max:=-1000;
for c:=1 to 4 do
begin
writeln('Введите число под номером ', c );
readln(n);
if n>max then begin
max:=n;
nom:=c;
end;
end;
writeln('Максимальное число из введенных - 'max);
end.
Объяснение: