Подсчитать число нулевых элементов для матриц А(3,3) и В(2,4) Матрицы вводятся.
Program MATR_0
uses crt;
type mass:array[1..10.1..10]of real;
VAR A,B:mass; zA,zB,iA,iB,gA,gB:integer;
Procedure vvodmassiva(var M:mass; iM,gM:integer; st:char);
VAR i,g:integer;
BEGIN
For i:=1 to iM do
For g:=1 to gM do
Begin
write (st, ',i,',',g,']=');
readln (M[i,g]);
end;
end;
Function zero (M:mass; iM,gM:integer):integer;
VAR i,g,z:integer;
BEGIN z:=0;
For i:=1 to iM do
For g:=1 to gM do
if M[i,g]=0 then z:=z+1;
zero:=z;
end;
BEGIN
write ('A[i,g], i,g= ');
readln(iA,gA);
write ('B[i,g], i,g= ');
readln (iB,gB);
vvodmassiva (A, iA, gA, 'A');
zA:=zero(A,iA,gA);
vvodmassiva(B, iB,gB,'B');
zB:=zero(B,iB,gB);
writeln ('Chislo 0 v A= ',zA);
writeln ('Chislo 0 v B= ',zB);
readln;
end.
Заранее спаибо. ПС в поиске не нашел если действительно есть плиз киньте ссылку
