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

program zz1;

var i, s, n, max:integer; / / задаем переменные целого типа

begin

max:=0; / / задаем начальное значение для наибольшего

for i:=1 to 10 do / / организуем цикл на десять повторений

begin

read (n); / / вводим очередное число

if n > max then begin max:=n; s:=i; end; / / проверяем условие на максимальное и запоминаем его номер

end;

writeln (' наибольшее число среди введенных = ', max, ' его номер = ', s); / / выводим ответ

end.