Решить.
для каждого столбца подсчитать сумму отрицательных элементов и записать данные в новый массив.(pascalabc)
не получается нормально сделать нужна ваша !
const n=30;
var
a: array[1..n] of integer;
s,null,h,i: integer;
begin
h: =0;
for i: =1 to n do
begin
a[i]: =-10+random(21);
write(a[i]: 4);
end;
for i: =1 to n do
begin
if a[i]< 0 then inc(h);
end;
writeln;
writeln('количество отрицательных элементов= ',h);
end.
const n=4; m=5;
var a: array[1..n,1..m] of integer;
b: array[1..m] of integer;
i,j,s: integer;
begin
s:=0;
randomize;
writeln('матрица:');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(19)-9;
write(a[i,j],' ');
end;
writeln;
end;
for j:=1 to m do begin
for i:=1 to n do if(a[i,j]<0) then s:=s+a[i,j];
b[j]:=s;
s:=0;
end;
write('полученный массив: ');
for j:=1 to m do write(b[j],' ');
end.