Подсчитать количество элиментов массива принадлежащих интервалу[-1;2] и определить их сумму

[Liver]

1)Матриц А состоит из 7 строк и 6 столбцов.Сформировать массив В, катый элимент которого равен произведению элиментов расположенных в катом столбце матрици.
2)В массиве 30 элементов целого типа. Найти и напечатать максимальный среди последних 10 элиментов и его индекс.
3)Подсчитать количество элиментов массива принадлежащих интервалу[-1;2] и определить их сумму. В массиве В 20 элементов.

[Cannibal]

1.

for i:=1 to 6 do begin
    s:=1;
    for J:= 1 to 7 do
        s:=s*a[j,i];
    b[i]:=s;
    end;

2.

max:= a[20];
k:=20;
for i:=21 to 30 do
     if a[i]>max then begin
                           max:=a[i];
                           k:=i;
                           end;
write (max,' ',k)

3.

k:=0;
s:=0;
for i:= 1 to 20 do
    if (a[i]>=-1) and(a[i]<=3) then begin
                                              s:=s+a[i];
                                              k:=k+1;
                                        end