Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры 4 числа и выводить на
экран номер наибольшего из них. Числа могут содержать дробную часть, Номер числа в
последовательности - целое число.
экран номер наибольшего из них. Числа могут содержать дробную часть, Номер числа в
последовательности - целое число.
More Questions From This User See All
Answers & Comments
var i, count:integer;
num, mx:real;
begin
mx:=-1;
for i:=1 to 4 do
begin
readln(num);
if num > mx then
begin
mx := num;
count := i;
end;
end;
write('Наибольшее число ', mx, ', а его номер в последовательности ', count);
end.
Если тебе помог мой ответ, то ты можешь сделать его лучшим)