Дана матрица. Определить суммы положительных элементов строк и записать их в массив.

[mtv2107]

Дана матрица. Определить суммы положительных элементов строк и записать их в массив. Нужно програмку написать. а я вообще не бум-бум в этом.

[andrewpalkin]

Ну а поиском умеешь пользоваться , таких программ на форуме уже куча было

[mtv2107]

да не могу я что-то найти ничего(

[andrewpalkin]

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

да не могу я что-то найти ничего(

Ну ищи лучше ! Удачи !

[5naip]

http://programmersforum.ru/showthread.php?t=70992
или вот я быренько написал:

procedure TForm1.Button1Click(Sender: TObject);
var
  matr: array[0..9,0..9] of integer;
  otv: array[0..9] of integer;
  i,k,n,j: integer;
begin
Randomize;
{Обнулим массив с суммами}
for i:=0 to 9 do otv[i]:=0;
{Заполним матрицу и заодно посчитаем суммы положительных элементов}
for i:=0 to 9 do
  for j:=0 to 9 do
    begin
      matr[i,j]:=RandomRange(-10,10);
      if matr[i,j]>0 then otv[i]:=otv[i]+matr[i,j]
    end;
end;

[mtv2107]

Оооо, спасибо большое)))) Благодарю!