Найти сумму и количество элементов с заданным условием

[saveliev87]

задача такая: 1. Найти сумму и количество элементов с заданным условием:
a) отрицательные элементы каждого столбца, меньшие заданного числа а;
b) элементы каждого столбца, меньшие среднего арифметического элементов каждого столбца;

написал вот чё:

program p5_2_1;
uses crt;
const n=7;
m=8;
var A:array[1..n,1..m] of integer;
c,s,k,i,j:integer;
begin clrscr;
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
A[i,j]:=random(50)-25;
write(A[i,j]:4);
end;
writeln;
end;


writeln('vvedite 4islo ');
readln(c);
s:=0;
for j:=1 to m do begin
k:=0;
for i:=1 to n do
if A[i,j]<0 then
k:=k+1;
if (a[i,j]<0) or (a[i,j]<c) then
s:=s+a[i,j];
writeln(j,' - ',k,s:5);
end;
readln;
end.

количество отрицательных элементов в столбцах считает правильно,
но сумму s не считает, пишет или последний элемент столбца, или ваще непонятно че

Ещё есть вот: 4. Вставить по одному элементу перед всеми отрицательными элементами одномерного массива

тут наверно надо вывод массива в цикл запихнуть, только реализация хромает(

[Андрей.12]

А если сделать так:
а)

program p5_2_1;
uses crt;
const n=3;
m=3;
var A:array[1..n,1..m] of integer;
c,s,k,i,j:integer;
begin clrscr;
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
A[i,j]:=random(50)-25;
write(A[i,j]:4);
end;
writeln;
end;


write('vvedite 4islo ');
readln(c);
k:=0;
s:=0;
for j:=1 to m do

for i:=1 to n do  begin
if (a[i,j]<0) and (A[i,j]<c) then begin
k:=k+1;
s:=s+a[i,j]; end;
 end;
writeln(k);
writeln(s);
readln;


readln;
end.

[Андрей.12]

4 задача не понятна, куда что вставлять

[ОДИНОЧЕСТВО В СЕТИ]

Вставить по одному элементу перед всеми отрицательными элементами одномерного массива

общий алгоритм

идем по массиву
пока не конец массива begin
находим отрицательный сдвигаем весь массив с этого элемента вправо вставляем нужное число увеличиваем индекс на 2 end;

[saveliev87]

так ведь надо поситать сумму отрицательных элементов каждого столбца, а не всех в массиве.

и вывести номер столбца - кол-во отрицат. эл-тов - сумма(меньших с)

вот сумму посчитать и немогу(

[saveliev87]

зы, а как это у вас текст то жирненький, то цветной в программе?)

[ОДИНОЧЕСТВО В СЕТИ]

program p5_2_1;
uses crt;
const n=3;
m=3;
var A:array[1..n,1..m] of integer;
c,s,k,i,j:integer;
begin clrscr;
randomize;
for i:=1 to n do begin
for j:=1 to m do begin
A[i,j]:=random(50)-25;
write(A[i,j]:4);
end;
writeln;
end;
write('vvedite 4islo ');
readln(c);
for j:=1 to m do begin
s:=0;k:=0;
for i:=1 to n do  
if (a[i,j]<0) and (A[i,j]<c) then begin
k:=k+1;
s:=s+a[i,j]; end;
writeln(j,'==>',s,'==>',k); 
end;
readln;
end.

[saveliev87]

спасибо, понял, только если ввести отрицательное число с, то к считается не менше 0, а меньше этого с

[saveliev87]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

общий алгоритм

чтобы 1 число вставить, я так написал

k:=1;
while a[k]>=0 do k:=k+1;

writeln(k);


for i:=n downto k+1 do
a[i+1]:=a[i];
a[k+1]:=x;

а чтобы перед каждым, надо эти циклы как то объединить?