Найти количесто нулевых элементов в матрице - Pascal ABC

Формулировка задачи:

Нужно составить программу для поиска в массиве количества нулевых элементов. Но поставлено условие, что бы в программе использовалась подпрограмма которая выполнила бы данное действие. Я пробовал сам но нечего не получилось. Посмотрите пожалуйста где у меня ошибка.
program robota8;
const N=4; M=4; V=6; C=8;
var A:array[1..N,1..V] of integer;
B:array[1..M,1..C] of integer;
i,j,o,p,t:integer;
Type
massiv=array [1..n, 1..v] of integer; 
Function Zero(x:massiv; k:byte):integer;
var g:byte; z:integer;
Begin
z:=0;
for var i:=1 to k do if X[i,j] = 0 then Inc(z);
Zero:=z;
end;
 
begin
for i:=1 to n do
    begin
    for j:=1 to v do
        begin
        a[i,j]:=random(0,1);
        end;
    end;
for o:=1 to m do
    begin
    for p:=1 to c do
        begin
        B[o,p]:=random(0,1);
        end;
    end;
t:=zero(A,);
writeln('Кількість нульових елементів таблиць A i B: ',t);
end.

Код к задаче: «Найти количесто нулевых элементов в матрице - Pascal ABC»

textual
program robota8;
 
const
  N = 4; M = 4; V = 6; C = 8;
 
type
  massiv = array [1..100, 1..100] of integer;
 
var
  a, b: massiv;
  //  A: array[1..N, 1..V] of integer;
  //  B: array[1..M, 1..C] of integer;
  i, j, o, p, t: integer;
 
 
function Zero(x: massiv; k, m: byte): integer;
var
  g: byte; z: integer;
begin
  z := 0;
  for var i := 1 to k do 
    for var j := 1 to m do 
      if X[i, j] = 0 then Inc(z);
  Zero := z;
end;
 
begin
  randomize;
  writeln('Array A:');
  for i := 1 to n do
  begin
    for j := 1 to v do
    begin
      a[i, j] := random(0, 1);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln('Array B:');
  for o := 1 to m do
  begin
    for p := 1 to c do
    begin
      B[o, p] := random(0, 1);
      write(B[o, p]:4);
    end;
    writeln;
  end;
  t := zero(A, n, v);
  writeln('Кількість нульових елементів таблиць A i B: ', zero(A, n, v) + zero(b, m, c));
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ