Дана целочисленная прямоугольная матрица 6*8. Вычислить количество нулевых ячеек матрицы.

program massiv;

var i, j, kol:longint;

a:array[1 ... 6,1 ... 8]of longint;

begin

for i:=1 to 6 do

for j:=1 to 8 do

read (a[i, j]);

for i:=1 to 6 do

for j:=1 to 8 do

if a[i, j]=0 then kol:=kol+1;

writeln (kol);

end.