Дана целочисленная квадратная матрица порядка n. Найти номера столбцов: а) все элементы которых – отрицательны; б) в каждом из которых все элементы одинаковых знаков (все или положительные, или отрицательные).

a)

const n=5;

var a:array [1..n,1..n] of integer;

i,j,k,s:integer;

begin

writeln('Массив: ');

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(3)-2;

write(a[i,j]:4);

end;

writeln

end;

for j:=1 to n do

begin

k:=0;

for i:=1 to n do

if a[i,j]<0 then k:=k+1;

if k=n then

begin

s:=s+1;

if s=1 then write ('Номера столбцов, все элементы которых отрицательны: ');

write (j,' ')

end

end;

if s=0 then write ('Столбцов, все элементы которых отрицательны - нет');

end.

б)

const n=5;

var a:array [1..n,1..n] of integer;

i,j,kp,ko:integer;

begin

for i:=1 to n do

for j:=1 to n do read (a[i,j]);

writeln('Массив: ');

for i:=1 to n do

begin

for j:=1 to n do write(a[i,j]:4);

writeln

end;

for j:=1 to n do

begin

ko:=0;

kp:=0;

for i:=1 to n do

begin

if a[i,j]<0 then ko:=ko+1;

if a[i,j]>0 then kp:=kp+1

end;

if ko=n then writeln ('В ',j,' столбце все элементы отрицательные');

if kp=n then writeln ('В ',j,' столбце все элементы положительные')

end

end.