Соотнеси арефметические операции
​

// 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 ==============================