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

[Викаа-008]

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

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

[Pein95]

1.

Program kj;
const
n=20;
var
a:array [1..n] of integer;
k:integer;
i,j:integer;
begin
readln(k);
for i:=1 to n do
a[i]:=random(20);
for i:=1 to n do
if a[i]>k then writeln(i);
end.

[Викаа-008]

Спасибо огромное!!!!!!!!)))))))

[Викаа-008]

А еще две?))))

[rubius2008]

3.Вычислить произведение всех нечетных элементов матрицы

p:=1;
for i:=1 to m do for j:=1 to n do if odd(a[i,f]) then p:=p*a[i,j];

[Novi4ok_11]

2.

Program kj;
const
n=20;
var
a:array [1..n] of integer;
k:integer;
i,j,mini,maxi,max,min,buf:integer;
begin
readln(k);
for i:=1 to n do
a[i]:=random(20);
max:=a[1];
min:=a[1];
for i:=1 to n do
if a[i]>max then maxi:=i;
for i:=1 to n do
if a[i]<min then mini:=i;

buf:=a[maxi];
a[maxi]:=a[mini];
a[mini]:=buf;
for i:=1 to n do writeln(' ',a[i]);
end.

[rubius2008]

2. Уже не надо)