Организация программ с использованием процедур....Pascal

[flexo_77]

ПОЖАЛУЙСТА помогите решить задачу с использованием процедур.

В матрицах А(5х5), В(6х6) найти отдельно количество строк и столбцов, элементы которых четны.

Заранее спасибо!!!

[puporev]

Вот код для двух квадратных матрицы размером до [20,20].
Ввод чисел в матрицу сделал для проверки чтобы гарантированно были строки и столбцы со всеми четными элементами. Переделаешь, как тебе удобней.

Program Flex;
uses crt;
type Tmatr=array[1..20,1..20] of integer;
var na,nb,i,j,k,kol:integer;a,b:Tmatr;
procedure ChtetStr(c:Tmatr;var kol:integer);
begin
kol:=0;
for i:=1 to na do
  begin
   k:=0;
   for j:=1 to na do
     begin
       if a[i,j]mod 2<>0 then k:=k+1;
     end;
   if k=0 then kol:=kol+1;
  end;
end;
procedure ChtetStb(c:Tmatr;var kol:integer);
begin
kol:=0;
for i:=1 to nb do
  begin
   k:=0;
   for j:=1 to nb do
     begin
       if a[i,j]mod 2<>0 then k:=k+1;
     end;
   if k=0 then kol:=kol+1;
  end;
end;
begin
clrscr;
write('na=');readln(na);
write('nb=');readln(nb);
randomize;
for i:=1 to na do
  begin
    for j:=1 to na do
      begin
        a[i,j]:=i*j;
        write(a[i,j]:3);
      end;
  writeln;
  end;
readln;
ChtetStr(a,kol);
ChtetStb(a,kol);
writeln('Kol chtetn str=',kol);
writeln('Kol chtetn stb=',kol);
readln;
for i:=1 to nb do
  begin
    for j:=1 to nb do
      begin
        b[i,j]:=i*j;
        write(b[i,j]:3);
      end;
  writeln;
  end;
readln;
ChtetStr(b,kol);
ChtetStb(b,kol);
writeln('Kol chtetn str=',kol);
writeln('Kol chtetn stb=',kol);
readln;

end.