Нулевые элементы в матрицах

[ufoman]

Помогите создать такую прогу: "Даны три матрицы A=(aij)nxn, B=(bij)mxm, C=(cij)nxn. Подсчитать количество нулевых элементов в матрицах A,B и С. Если хотя бы в одной из них не окажется нулевых элементов, переменной F присвоить значение "TRUE", в противном случае - "FALSE"."

[rpy3uH]

для одной матрицы

var 
   nulls_count:integer;

   for i:=...
    for j:=...
     begin
      if a[i,j]=0 then 
       nulls_count:=nulls_count+1;      
     end
    if nulls_count=0 then f:=true 
                           else f:=false;

[RSLoader]

  az:=0;
  bz:=0;
  cz:=0;
  for i:=1 to n do
  for j:=1 to n do
  begin
    if A[i,j]=0 then Inc(az);
    if C[i,j]=0 then Inc(cz);
  end;
  for i:=1 to m do
  for j:=1 to m do if B[i,j]=0 then Inc(bz);
  if (az=0) or (bz=0) or (cz=0) then F:=True
  else F:=False;

[ufoman]

А как вывести в Memo количиство нулевых элементов в каждой матрице?

[RSLoader]

Memo1.Lines.Add('Количество нулевых элементов в матрице A: '+IntToStr(az));
Memo1.Lines.Add('Количество нулевых элементов в матрице B: '+IntToStr(bz));
Memo1.Lines.Add('Количество нулевых элементов в матрице C: '+IntToStr(cz));

[rpy3uH]

Сообщение от ufoman

А как вывести в Memo количиство нулевых элементов в каждой матрице?

ты наверно, вчера дельфи установил......