написать программу для подсчета количества отрицательных частей двумерного массива кратных

Ответ:

Изъяснение:

Описание массива и переменной количества:

var

 a:array[1..n, 1..m] of integer;

 count:integer;

 i, j:integer;

Сам кусок программки:

 count:=0;

 for i:=1 to n do

   for j:=1 to m do

     if ((a[i, j]lt;0) and ((a[i, j] mod 3) = 0)) then count:=count+1;