Дан массив m*n. определить есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов. только через паскаль abc) !

12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 uses crt; const nmax = 20; var a : array [ 1.. nmax , 1.. nmax ] of integer;     m ,n ,i ,j ,kp ,ko : byte;     f : boolean; begin clrscr; randomize; repeat write ( 'количество строк до ' ,nmax , ' n=' ); readln (n ); until n in [ 1.. nmax ]; repeat write ( 'количество столбцов до ' ,nmax , ' m=' ); readln (m ); until m in [ 1.. nmax ]; writeln ( 'исходная матрица: ' ); for i : = 1 to n do   begin     for j : = 1 to m do     begin       a [i ,j ] : =random ( 20 ) - 9;       write (a [i ,j ] : 4 );     end;     writeln;   end; writeln; f : = false; j : = 1; while (j< =m ) and not f do   begin   kp : = 0; ko : = 0;   for i : = 1 to n do   if a [i ,j ]> 0 then inc (kp )   else if a [i ,j ]< 0 then inc (ko );   if ko =kp then f : = true   else inc (j );   end; writeln ( 'есть ли в матрице столбец с равным числом' ); writeln ( 'положительных и отрицательных элементов? ' ); write (f ); readln end.

 

Вчерно-белом изображении для хранения одной точки требуется log(2)2=1 бит. объем файла = 1024*2048*1 бит = 1024*2048/1000000 мбит  ≈ 2.1 мбит