program Obmen_dannimi;

var
intA,intB:integer;
Mass:array[1..6,1..6] of integer;
Param_zn:array[1..6] of integer;
Para:byte;

procedure Parametr_Znachenie(Param:array of integer);
var
intC:integer;
kolichestvo_nulevih_elementov:byte;
begin
kolichestvo_nulevih_elementov:=0;
inc(Para);
if Para mod 2 = 0 then begin
for intC:= 0 to 5 do
if Param[intC]=0 then inc(kolichestvo_nulevih_elementov);
writeln('stroka nomer ',Para,' soderzhit ',kolichestvo_nulevih_elementov,' nulevih(oi) elementa(ov)');
end;
end;

procedure Parametr_Peremennaia(var Param:array of integer);
var
intC:integer;
kolichestvo_nulevih_elementov:byte;
begin
kolichestvo_nulevih_elementov:=0;
inc(Para);
if Para mod 2 = 0 then begin
for intC:= 0 to 5 do
if Param[intC]=0 then inc(kolichestvo_nulevih_elementov);
writeln('stroka nomer ',Para,' soderzhit ',kolichestvo_nulevih_elementov,' nulevih(oi) elementa(ov)');
end;
end;

begin
Para:=0;
writeln('Zapolniaiu massiv');
randomize;
for intA:=1 to 6 do begin
for intB:=1 to 6 do begin
Mass[intA,intB]:=random(2);
write(Mass[intA,intB],' ');
end;
write(#13#10);
end;
writeln;
writeln('Ispolzuiu parametr - znachenie');
for intA:=1 to 6 do begin
for intB:=1 to 6 do begin
Param_Zn[intB]:=Mass[intA,intB];
end;
Parametr_Znachenie(Param_Zn);
end;
Para:=0;
writeln;
writeln('Ispolzuiu parametr - peremennuiu');
for intA:=1 to 6 do begin
for intB:=1 to 6 do begin
Param_Zn[intB]:=Mass[intA,intB];
end;
Parametr_Peremennaia(Param_zn);
end;

readln;
end.

Zapolniaiu massiv
0 0 0 1 1 0
0 0 0 1 1 1
0 0 1 1 0 0
1 1 1 0 1 1
1 1 1 0 1 1
0 0 1 0 1 1

Ispolzuiu parametr - znachenie
stroka nomer 2 soderzhit 3 nulevih(oi) elementa(ov)
stroka nomer 4 soderzhit 1 nulevih(oi) elementa(ov)
stroka nomer 6 soderzhit 3 nulevih(oi) elementa(ov)

Ispolzuiu parametr - peremennuiu
stroka nomer 2 soderzhit 3 nulevih(oi) elementa(ov)
stroka nomer 4 soderzhit 1 nulevih(oi) elementa(ov)
stroka nomer 6 soderzhit 3 nulevih(oi) elementa(ov)