нужна помощь

[curly182]

Задана матрица А(15,10).Результат-одномерный массив.Найти сумму элементов в каждом столбце матрицы отдельно. Элементы задаются случайно

[Stilet]

Наработки есть?

[DM_bite]

Вот откопал код, только здесь, если мне память не изменяет, находиться сумма элементов в строке.Если что - перепиши как тебе надо.

program xd;
var a:array [1..15,1..10] of integer;
     b:array [1..15] of integer;
     i,j,sum: integer;
     begin
randomize;
for i:= 1 to 15 do
begin
sum:= 0;
 for j:= 1 to 10 do
 begin
 a[i,j]:= random(15);
 sum:= sum+a[i,j];
 end;
  b[i]:= sum;
 end;
 for i:= 1 to 15 do
  begin
  for J:= 1 to 10 do
  begin
  Write(a[i,j],'_');
  end;
  WriteLn;
  end;
  for i:= 1 to 15 do
   begin
   WriteLn(b[i],'__');
   end;
   ReadLn;
   end.