Паскаль, матрица

[Lensom]

Паскаль, матрица

Нужна помощь в задании.
Cделать ввод матрицы,уплотить заданную матрицу,удаляя из нее строки и столбцы,заполненные нулями.

 

[Vladimir_S]

Нужна помощь в задании.
Cделать ввод матрицы,уплотить заданную матрицу,удаляя из нее строки и столбцы,заполненные нулями.

Пожалуйста:

Const
 Mmax=50;
 Nmax=50;

Type
 Matr=Array[1..Mmax,1..Nmax] of Integer;
 Vect=Array[1..Mmax] of Integer;

Var
 i,j,k,M,N:Integer;
 A:Matr;
 V:Vect;

Function Test_Zero(VV:Vect; Nv:Integer):Boolean;
var
 p:integer;
 b:boolean;
begin
 b:=true;
 for p:=1 to Nv do
  if VV[p]<>0 then b:=false;
 Test_Zero:=b;
end;

Begin
 Write('Number of lines = ');
 Readln(M);
 Write('Number of columns = ');
 Readln(N);
 for i:=1 to M do
  for j:=1 to N do
   begin
    Write('A[',i:2,',',j:2,'] = ');
    Readln(A[i,j]);
   end;
 Writeln;
 Writeln('Initial matrix:');
 for i:=1 to M do
  begin
   for j:=1 to N do
    Write(A[i,j]:4);
   Writeln;
  end;
 Writeln;
 Writeln('New matrix:');
 i:=0;
 Repeat
  Inc(i);
  for j:=1 to N do V[j]:=A[i,j];
  if Test_Zero(V,N) then
   begin
    for k:=i+1 to M do
     for j:=1 to N do
      A[k-1,j]:=A[k,j];
    Dec(M);
   end;
 Until i>=M;
 j:=0;
 Repeat
  Inc(j);
  for i:=1 to M do V[i]:=A[i,j];
  if Test_Zero(V,M) then
   begin
    for k:=j+1 to N do
     for i:=1 to M do
      A[i,k-1]:=A[i,k];
    Dec(N);
   end;
 Until j>=N;
 for i:=1 to M do
  begin
   for j:=1 to N do
    Write(A[i,j]:4);
   Writeln;
  end;
 Readln
End.

 

[Lensom]

Cпасибо за код.