Найти максимальный элемент в массиве из 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. / /Конец.