двумерный массив размерностью mxn

[7bratoval]

Пожалуйста помогите новичку (т.е. мне) разобраться с массивами в DELPHI и решить одну задачку:
Данн двумерный массив размерностью mxn (вводится с формы пользователем). Вычислить сумму элементов каждого столбца и вывести вместе с массивом на экран.

[fbus]

в асю стучи

[7bratoval]

Вопрос еще не закрыт, ответа пока нет, кому не трудно и не в лом, прошу подсобите

[Stilet]

7bratoval

Показывай наработки - или фриланс.

[7bratoval]

что то типа

var
M1 : array[1..10,1..10] of real;
M2 : array[1..10] of real;
i,j : integer;
S : real;
IndexMax : integer;

begin
{заполнить массив случайными значениями от 0 до 1000}
Randomize;
for i:=1 to 10 do
for j:=1 to 10 do
M1[i,j] := Random(1000);

[alex_fcsm]

Посмотрите в этойтеме.
Под Delphi несложно переделать

[Stilet]

Логично, а теперь примерно так:

for i:=1 to 10 do
 for j:=1 to 10 do
   m2[i]:=m2[i]+M1[j,i];

Это массив сум каждого столбца

[7bratoval]

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

Логично, а теперь примерно так:

for i:=1 to 10 do
 for j:=1 to 10 do
   m2[i]:=m2[i]+M1[j,i];

Это массив сум каждого столбца

m2[i]:=m2[i]+M1[j,i];
не пойму почему m2[i] два раза?

[alex_fcsm]

Чтобы накапливать сумму

[Stilet]

Ну ты же сумму считаеш?