паскаль, удаление строк и столбцов

[daimon]

условие задачи:

Удалить строки и столбцы матрицы, где есть хотя бы один 0.

не получается удалить сразу и строку и столбец(

[notHaker]

код в студию

[daimon]

это то до чего я дошел

Program _A2;	
uses crt;
Var A:array[1..20,1..20] of integer;
    B:array[1..20,1..20] of integer;
    I,J,M,N,k,z:integer;
    F,V:boolean;
Begin
     writeln('vvedite M,N');
     readln(M,N);
      k:=0;
      z:=0;
     writeln('vvedite elementi');
    for I:=1 to M do
      for J:=1 to N do
        read (A[I,J]);
    For I:=1 to M do
      begin
        V:=false;
          for J:=1 to N do
           begin
            F:=true;
              if A[I,J]=0 then
               F:=false;
              if F=false then
               V:=true;
              if V=false then
               begin
                 k:=k+1;
                for J:=1 to N do
                 B[k,J]:=A[I,J]
               end;
              if V=true then
               begin
                 z:=J;
                  for I:=z to N do
                    B[I,z]:=B[I,z+1]
               end
           end
      End;
    for I:=1 to k do
      begin
        for J:=1 to z do
         write(B[I,J]:6);
        writeln
      end;
readkey
End.

[artemon16]

на выводе убери не нужный столбец и строку

procedure nul(var b:matrix);
var i_n,j_n,i,j,n,m:integer;
begin;
for i:=1 to n do
	begin
		for j:=1 to m do
		if b[i,j]=0 then
		begin
		i_n:=i;
		j_n:=j;
		end;
	end;
writeln('Poluchenna9');
for i:=1 to n do
	if i<>i_n then
		begin
		for j:=1 to m do
		if j<>j_n then write(b[i,j],' ');
		writeln;
		end;
end;

[daimon]

а каким образом?(

[daimon]

он так удалил тока часть нужных строк и столбцов...

[Yuliy]

У меня вызвала затруднение вроде бы простая задачка.... Буду очень рада, если мне кто-нибудь поможет. Вот она: Дан двумерный массив. Нужно удалить строки и столбцы, на пересечении которых стоят отрицательные элементы.

[DoDge_VipeR]

uses crt;
var a:array[1..100,1..100] of integer;
i,j,k,l,n,m:integer;
f:boolean;
begin
clrscr;
readln(n);
readln(m);
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(25)-8;
write(a[i,j]:6);
end;
writeln;
end;
i:=1;
while i<=n do
begin
j:=1;
while j<=m do
begin
if a[i,j]<0 then begin
 for k:=i to n-1 do
 for l:=1 to m do
 a[k,l]:=a[k+1,l];
 n:=n-1;
 for k:=1 to n do
 for l:=j to m-1 do
 a[k,l]:=a[k,l+1];
 m:=m-1;
end
else inc(j);
end;
inc(i);
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:6);
end;
writeln;
end;
readkey;
end.

[Yuliy]

Большое спасибо!