Сумма

[ARTEGA]

Есть готовая программа, но она складывает все числа, а нужно только положительных, какой цикл нужно дописать?
Если что то сама формулировка "Дана матрица A(N,M).Вычислите вектор X(M), где значение Xj равно сумме положительных элементов j- ого столба матрицы A."

procedure TForm1.Button1Click(Sender: TObject);
begin
stringgrid1.RowCount:=strtoint(edit 1.Text)+1;
stringgrid1.ColCount:=strtoint(edit 2.Text)+1;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
matr:array [1..40,1..40] of integer;
mas:array [1..40] of integer;
i,j,q,p,n,m:integer;
Begin
m:=stringgrid1.ColCount;
n:=stringgrid1.RowCount;
for i:=1 to n-1 do begin
for j:=1 to m-1 do begin
matr[i,j]:=strtoint(stringgrid1.Cells[i,j]);
end;
end;
p:=strtoint(edit3.Text);
q:=0;
for i:=1 to n-1 do begin
edit4.Text:=edit4.Text+inttostr(mat r[p,i]);
q:=q+matr[p,i];
end;
edit5.Text:=inttostr(q);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
edit4.Clear;
end;

End.

[Arigato]

Сообщение от ARTEGA

Есть готовая программа, но она складывает все числа, а нужно только положительных, какой цикл нужно дописать?

При чём тут цикл? Нужно добавить проверку числа на положительность.

[ARTEGA]

Возможно, если знаеш напиши как.

[Arigato]

if число > 0 then прибавляем_к_сумме;

[ARTEGA]

Ну а если меньше, то куда его?

[Arigato]

Если меньше, то вместо знака ">" ставим "<"

[ARTEGA]

Логично, не издевайся, если оно меньше 0 то что с ним сделать то?

[Arigato]

Ничего не делать, нужны же только те, что > 0.