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

const n=20;

var

a:array [0..n] of integer;

k,i: integer;

begin

randomize;

k:=0;

writeln('Исходный массив:');

for i:=1 to n do

begin

a[i]:=random(100);

write(a[i],' ');

end;

writeln;

writeln('Индексы нечетных элементов:');

for i:=1 to n do

if a[i] mod 2 <> 0 then

begin

write(i,' ');

k:=k+1;

end;

writeln;

writeln('k = ',k);

end.

Пример:

Исходный массив:

62 21 39 17 75 30 10 29 80 1 88 93 50 48 17 9 41 2 1 8  

Индексы нечетных элементов:

2 3 4 5 8 10 12 15 16 17 19  

k = 11

Объяснение: