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.
