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

program massiv; var i,j,kol: longint; a: array[1… 6,1… 8]of longint; beginfor i: =1 to 6 dofor j: =1 to 8 doread (a[i,j]); for i: =1 to 6 dofor j: =1 to 8 doif a[i,j]=0 then kol: =kol+1; writeln (kol); end.