Дан одномерный массив из 10 элементов. Найти его минимальный элемент и напечатать его порядковый номер.

var

a : array[1 ... 10] of integer; / / создаём массив

i, k: integer; / / создаём целочисленные переменные

begin

i: = 1; / / задаём начальное значение

k: = 32767;

while i< = 10 do / / Поочерёдно проходимся по всем элементам цикла

begin

readln (a[i]); / / Читаем с консоли значение элемента

if a[i] < k then / / И сравниваем с нашей переменной k

k: = a[i]; / / если элемент меньше k, то k присваивает его значение

i: = i+1; / / увеличиваем счётчик

end;

println (k); / / Выводим значение наименьшего элемента массива

end.