Помогите решить задачу на двумерный массив

Дан двумерный массив M(50;50). Массив вводить по строкам. Найти сумму произведений элементов строк массива М.

Stas03

Дан двумерный массив M(50;50). Массив вводить по строкам. Найти сумму произведений элементов строк массива М.

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
  Mul, Res : Int64;

begin
  Res := 0;

  for i := Low(M) to High(M) do
  begin
     Mul := 1;

     for j := Low(M) to High(M) do
       Mul := Mul * M[i, j];

     Res := Res + Mul;
  end;

  showmessage( inttostr(Res) );
end;

Кстати вот интересно, написал на ruby:

n = 50
a = (0..n).map{ Array.new(n){1 +rand(5)} }
a.each do |row|
  puts row.inject(1){ |result, cell| result*cell }
end

Собственно 5 строчек, вместе с заполнением данных.

[SRC ruby]
n = 50
a = (0..n).map{ Array.new(n){1 +rand(5)} }
r = 0
a.each do |row|
r += row.inject(1){ |result, cell| result*cell }
end
puts r
[/SRC]

Спасибо. Для полного решения задачи на форме нужны : edit1-вод данных, memo1-вывод самого массива, edit2-вывод результата(суммы), и button1-Считать, Button2-выход? Если возможно выложите всю прогу (особенно интересно как вывести массив на экран). Буду ОЧЕНЬ благодарен.

Stas03

Спасибо. Для полного решения задачи на форме нужны : edit1-вод данных, memo1-вывод самого массива, edit2-вывод результата(суммы), и button1-Считать, Button2-выход? Если возможно выложите всю прогу (особенно интересно как вывести массив на экран). Буду ОЧЕНЬ благодарен.

Ого!!! Это кстати на MVC тянет уже 100%, тут вот в соседней теме люди бьются на смерть ))

Просто завтра экзамен. Мы массивы не делали в течении семестра. Если очень трудно скажите хотя бы как вывести массив на экран?

так перебором и в строку, функция IntToStr

Это как? Я чайник почти в этом деле.. На экран выведется через компонент Memo?

Stas03

Спасибо. Для полного решения задачи на форме нужны : edit1-вод данных, memo1-вывод самого массива, edit2-вывод результата(суммы), и button1-Считать, Button2-выход? Если возможно выложите всю прогу (особенно интересно как вывести массив на экран). Буду ОЧЕНЬ благодарен.

Сколько?