Решить.
для каждого столбца подсчитать сумму отрицательных элементов и записать данные в новый массив.(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.

aiganymAbz    3   05.12.2019 19:09    4