Массивы в паскале

[Викаа-008]

1. В массив A{N} занесены натуральные числа. Вывести на экран индексы элементов, которые больше данного K.
2. Даны действительные числа a1, a2, ... , an (a-энное). Поменять местами наибольший и наименьший элементы.
3. Заполнить матрицу размера MxN случайными числами. Вычислить произведение всех нечетных элементов матрицы.

Помогите решить пожалуйстаааа!!!!!)))

[Alexar Makken]

по первой

for i:=1 to n do
if a[i]> k then
writeln(i);

по второй

 min:=100;
     for i:=1 to n do
     if a[i]<min then
     begin
          min:=a[i];
          imin:=i;
     end;
     max:=-100;
     for i:=1 to n do
     if a[i]>max then
     begin
          max:=a[i];
          imax:=i;
     end;
Buf:=a[imax];
a[imax]:=a[imin];
a[imin]:=Buf;

по третьей

Pr:=1;
for i:=1 to n do
if i mod 2 <> 0 then
Pr:=Pr*a[i];