Найти максимальный элемент в массиве из 11-ти чисел [0, 100] и вывести его порядковый номер.

var a: array[0..100] of integer; //Описываем массив в разделе переменных.

i, max: integer; //А так же счётчик и переменную, которая будет отвечать за индекс максимального элемента.

begin //Начало.

writeln(\'Заполните массив с клавиатуры\'); //Запрашиваем у пользователя ввод массива.

for i := 0 to 10 do readln(a[i]); //В цикле его заполняем с клавиатуры.

max := 0; //Индекс максимального пока что ноль.

for i := 1 to 11 do //Проходим циклом по всем элементам массива.

if a[i] > a[max] then max := i; //Если текущий элемент больше максимального - записываем его индекс в max.

writeln(\'Порядковый номер максимального элемента в массиве \',  max); //Выводим индекс максимального.

end. //Конец.