Из матрицы целых чисел удалить столбец, значения всех элементов которого равно 0 - Turbo Pascal

Формулировка задачи:

Из матрицы целых чисел удалить столбец, значения всех элементов которого равно 0 Исходная: 11 12 0 14 21 22 0 24 31 32 0 34 41 42 0 44 Конечная: 11 12 14 21 22 24 31 32 34 41 42 44

Код к задаче: «Из матрицы целых чисел удалить столбец, значения всех элементов которого равно 0 - Turbo Pascal»

textual
Uses Crt;
Const nmax=20;
Var A:array[1..nmax,1..nmax] of integer;
    i,j,n,m,jk,k:byte;
    t:integer;
Begin
    ClrScr;
    write('n,m<=',nmax,': ');readln(n,m);
    For i:=1 to n do
     For j:=1 to m do
     Begin
       write('A[',i,',',j,'] = ');
       readln(A[i,j]);
     End;
    ClrScr;
    writeln('Исходная');
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(A[i,j]:4);
      writeln;
    End;
    j:=1;
    While (j<=m)and(jk=0) do
    Begin
      k:=0;
      For i:=1 to n do
       if A[i,j]=0 then inc(k);
      if k=n then jk:=j;
      inc(j);
    End;
    if jk=0 then writeln('Нету столбца из нулей')
    else
    Begin
      dec(m);
      For j:=jk to m do
       For i:=1 to n do
        A[i,j]:=A[i,j+1];
      writeln('Конечная');
      For i:=1 to n do
      Begin
        For j:=1 to m do
         write(A[i,j]:4);
        writeln;
      End;
    End;
    readln;
End.

15   голосов, оценка 3.933 из 5


СОХРАНИТЬ ССЫЛКУ