Написать программу на паскале две двумерный массив .удалить столбец в котором кол-во положительных элементов равно кол-ву отрицательных.

// pascalabc.net 3.1, сборка 1219 от 16.04.2016 type   matrix=array[,] of integer; procedure matprint(a: matrix); begin   var m: =length(a,1)-1;   for var i: =0 to length(a,0)-1 do begin       for var j: =0 to m do write(a[i,j]: 4);       writeln       end end; function isequal(a: matrix; col: integer): boolean; begin   var s: =sign(a[0,col]);   for var i: =1 to length(a,0)-1 do s+=sign(a[i,col]);   if (s=0) then result: =(a[0,col]< > 0)   else result: =false end; procedure deletecol(var a: matrix; col: integer); begin   var n: =length(a,0)-1;   var m: =length(a,1)-1;   for var j: =col+1 to length(a,1)-1 do       for var i: =0 to n do a[i,j-1]: =a[i,j];   setlength(a,n+1,m) end; begin   var n: =readinteger('строк: ');   var m: =readinteger('столбцов: ');   var a: =matrixrandom(n,m,-99,99);   writeln('исходная матрица');   matprint(a);   for var j: =length(a,1)-1 downto 0 do       if isequal(a,j) then deletecol(a,j);   writeln('результирующая матрица');   matprint(a);   end. тестовое решение строк: 8 столбцов: 10 исходная матрица   -3 -82 -25 -22  65    1  79 -67 -64 -82   17  36  48 -32  51  11  43    9 -35    4   -10  -5  80  82 -24  66 -12 -58  50 -94   52  70  53  85 -32 -59  46  57 -84 -44   81  71 -55  37  46 -15 -61  25  22  -7   -49  98 -42 -18 -44 -97 -63  -7 -98  99   -86  37 -17 -69 -35  46  82  62  99  11   65  85  -7 -90  23  19 -50 -56 -64  91 результирующая матрица   -82 -25 -22    1 -64   36  48 -32  11 -35   -5  80  82  66  50   70  53  85 -59 -84   71 -55  37 -15  22   98 -42 -18 -97 -98   37 -17 -69  46  99   85  -7 -90  19 -64

var

 n, i, min, k: integer;

begin

 WriteLn('Поиск минимального элемента массива.');

 Write('Введите количество чисел N = ');

 ReadLn(n);

 WriteLn('Введите в одной строке элементы массива (', n, ' целых чисел) и нажмите <Enter>.');

 for i := 1 to n do

 begin  

   Read(k);

   if i = 1 then if k < min then k := min else min := k else if k < min then min := k;

 end;  

 WriteLn('Минимальный элемент массива: ', min);

end.

Объяснение: