Дан массив m*n. Определить есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов. Только через паскаль ABC) СПАСИБО!!!
12345678910111213141516171819202122232425262728293031323334353637383940414243uses crt;const nmax=20;var a:array[1..nmax,1..nmax] of integer; m,n,i,j,kp,ko:byte; f:boolean;beginclrscr;randomize;repeatwrite(Количество строк до ,nmax, n=);readln(n);until n in [1..nmax];repeatwrite(Количество столбцов до ,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);readlnend.
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
