матрицы

[Александр НИК-В]

Даны три матрицы.Вывести на экран ту из них, в которой наибольшее число строк, содержащих одни нули(если таких матриц несколько,вывести их все).

[Arigato]

Интересная задача. И как Вы её решили?

[Александр НИК-В]

В втом то и проблема, что задачу я не решил.......

[Arigato]

В втом то и проблема, что задачу я не решил.......

Очень жаль. Только не понятно, чего Вы ждёте от этого форума, опубликовав здесь условие Вашей задачи.

[Teor]

Задача не сложная, правда большая

program w;
uses crt;
var i,j,k,n,c1,c2,c3,s:integer; mas1,mas2,mas3:array[1..1000,1..1000] of integer;
begin
clrscr;
writeln ('Введите размер');
readln (n);
writeln ('Введите числа первой матрицы');
for i:=1 to n do
for j:=1 to n do
read (mas1[i,j]);
writeln ('Введите числа второй матрицы');
for i:=1 to n do
for j:=1 to n do
read (mas2[i,j]);
writeln ('Введите числа третьей матрицы');
for i:=1 to n do
for j:=1 to n do
read (mas3[i,j]);
c1:=0;
c2:=0;
c3:=0;
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
begin
if mas1[i,j]=0 then k:=k+1;
if k=n then
begin
c1:=c1+1;
s:=1;
end;
end;
end;
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
begin
if mas2[i,j]=0 then k:=k+1;
if k=n then
begin
c2:=c2+1;
s:=2;
end;
end;
end;
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
begin
if mas3[i,j]=0 then k:=k+1;
if k=n then
begin
c3:=c3+1;
s:=3;
end;
end;
end;
if (c1=c2) and (c1=c3) and (c1<>0) then begin
for i:=1 to n do
begin
for j:=1 to n do
write (mas1[i,j],'  ');
writeln;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write (mas2[i,j],'  ');
writeln;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write (mas3[i,j],'  ');
writeln;
end;
end else if (c1=c2) and (c1<>c3) and (c1<>0) then
begin
for i:=1 to n do
begin
for j:=1 to n do
write (mas1[i,j],'  ');
writeln;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write (mas2[i,j],'  ');
writeln;
end;
end else if (c1=c3) and (c3<>c2) and (c1<>0) then
begin
for i:=1 to n do
begin
for j:=1 to n do
write (mas1[i,j],'  ');
writeln;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write (mas3[i,j],'  ');
writeln;
end;
end else if (c2=c3) and (c2<>c1)  and (c2<>0) then
begin
for i:=1 to n do
begin
for j:=1 to n do
write (mas2[i,j],'  ');
writeln;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write (mas3[i,j],'  ');
writeln;
end;
end else
begin
writeln;
case s of
1:for i:=1 to n do
begin
for j:=1 to n do
write (mas1[i,j],'  ');
writeln;
end;
2:for i:=1 to n do
begin
for j:=1 to n do
write (mas2[i,j],'  ');
writeln;
end;
3:for i:=1 to n do
begin
for j:=1 to n do
write (mas3[i,j],'  ');
writeln;
end;
end;
end;
readkey
end.