Дан массив из 8 целочисленных элементов. Элементы вводятся с клавиатуры (все элементы различны). Найти минимальный элемент численного массива и его порядковый номер.

program zz1;

var mas:array[1 ... 8] of integer;

i, min, k:integer;

begin

for i:=1 to 8 do

read (mas[i]); / /вводим исходные числа в массив с клавиатуры

min:=1000000; / /задаем начальное значение минимального элемента (это должно быть максимально возможное число)

for i:=1 to 8 do

if mas[i]
write ('минимальный элемент - ', min,' его номер - ', k); / /выводим ответ

end.