Написать программу для подсчета количества отрицательных элементов двумерного массива кратных трём в pascal abc

Объяснение:

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

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]<0) and ((a[i, j] mod 3) = 0)) then count:=count+1;