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

program arrays_19;

var i, j, k: integer; / / задаем переменные целого типа

m: array[1 ... 6,1 ... 8] of integer;

begin

for i:=1 to 6 do begin

for j:=1 to 8 do begin

m[i, j]:=random (10); / / заполнение массива случайными числами от нуля до девяти и вывод полученного массива на экран

write (m[i, j]:3);

end;

writeln;

end;

for i:=1 to 6 do

for j:=1 to 8 do

if m[i, j]=0 then k:=k + 1; / / проверяем, если ячейка массива равна нулю, то считаем ее

write (' количество нулевых ячеек массива = ', k); / / вывод ответа

end.