1. в двумерном массиве 4х7 определить количество чётных отрицательных элементов. 2. определить произведение элементов над главной диагональю квадратной матрицы 3х3.

1)
var
   a : array [1..4, 1..7] of integer;
   i, j, count : integer;
 begin
   count := 0;
   for i:=1 to 4 do
     for j:=1 to 7 do
       if ((a[i,j]<0) and (a[i,j] mod 2 =0))
       then count:= count+1;
   writeln (count);
 end.

2)
var
    a : array [1..3, 1..3];
    c : integer;
 begin
   c := a[1, 1] * a[2, 2] * a[3, 3];
   writeln(c);
 end.