Дана целочисленная прямоугольная матрица 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); // наполнение массива случайными числами от нуля до 9 и вывод полученного массива на экран
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.