Задача на тему цикл с параметром Паскаль. Определить среди 10 чисел какое из них наибольшее и вывести порядковый номер этого числа.

Предыдущий
вопрос Следующий
вопрос

program MaxNumber;
var
i, maxNum, maxIndex, num: integer;
begin
maxNum := -9999;
maxIndex := 0;

for i := 1 to 10 do
begin
writeln('Введите число ', i, ': ');
readln(num);

end;

writeln('Наибольшее число:', maxNum);
writeln('Порядковый номер этого числа:', maxIndex);
end.