Дан массив m*n. определить есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов. только через паскаль abc) !
1 2 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.
