Question

Использовать подпрограммы (ввода, вывода, обрабатывающей части). даны 3 массива целых чисел: (4*5), (5*5), (5*4). вставить после каждого столбца, содержащего хотя бы один нулевой элемент, столбец из единиц.

Answer 1

// PascalABC.NET 3.3, сборка 1559 от 01.11.2017
// Внимание! Если программа не работает, обновите версию!

function MasInput(s:string; m,n:integer):array[,] of integer;
begin
  Writeln('Введите построчно элементы массива ',s,'[',m,',',n,']');
  Result:=ReadMatrInteger(m,n)
end;

procedure MasPrint(s:string; a:array[,] of integer; k:integer:=5);
begin
  Writeln('*** Полученный массив ',s,' ***');
  a.Println(5);
  Writeln(5*a.ColCount*'=')
end;

procedure MasTransform(var a:array[,] of integer);
begin
  var s:=a.Cols.Select(col->col.Any(t->t=0));
  var k:=s.Where(t->t).Count;
  if k>0 then begin
    var ns:=a.ColCount-1; // номер передающей колонки
    var s1:=s.Numerate.Where(t->t[1]).Select(t->t[0]-1);
    var St:=new Stack<integer>;
    foreach var t in s1 do St.Push(t);
    SetLength(a,a.RowCount,a.ColCount+k);
    var nt:=a.ColCount-1; // номер принимающей колонки
    for var i:=ns downto 0 do
      if St.Count>0 then
        if St.Peek=i then begin
          a.SetCol(nt,ArrFill(a.RowCount,1));
          a.SetCol(nt-1,a.Col(i));
          nt-=2; St.Pop
          end
        else begin
          a.SetCol(nt,a.Col(i));
          nt-=1
          end
    end;
end;
 

begin
  var a:=MasInput('A',4,5);
  MasTransform(a);
  MasPrint('A',a);
  var b:=MasInput('B',5,5);
  MasTransform(b);
  MasPrint('B',b);
  var c:=MasInput('C',5,4);
  MasTransform(c);
  MasPrint('C',c)
end.

Пример
Введите построчно элементы массива A[4,5]
3 5 6 3 8
6 4 0 1 3
-2 0 0 4 1
2 3 5 -7 0
*** Полученный массив A ***
    3    5    1    6    1    3    8    1
    6    4    1    0    1    1    3    1
   -2    0    1    0    1    4    1    1
    2    3    1    5    1   -7    0    1

Введите построчно элементы массива B[5,5]
1 6 3 9 2
2 4 8 5 7
1 3 1 4 5
3 5 7 6 4
8 9 2 7 3
*** Полученный массив B ***
    1    6    3    9    2
    2    4    8    5    7
    1    3    1    4    5
    3    5    7    6    4
    8    9    2    7    3

Введите построчно элементы массива C[5,4]
2 3 -1 -2
0 6 7 9
3 4 8 6
7 -2 2 -5
4 0 1 7
*** Полученный массив C ***
    2    1    3    1   -1   -2
    0    1    6    1    7    9
    3    1    4    1    8    6
    7    1   -2    1    2   -5
    4    1    0    1    1    7