Как перемножить диапазон столбца на диапазон строк

#include "stdafx.h"
#include <iostream>
using namespace std;

int main() 
      {
         int i;
         int sum = 0;
         const int size = 10;  
         int main_mass[size];
         for (i = 0; i < size; i++) {
               cout << "Enter the number " << i << " of " << size << " : ";
               cin >> main_mass[i];
               sum += main_mass[i]; 
        };
        cout << "Summa vseh elementov massiva = " << sum << "  ";                system("pause");
     }

CONST k=10; {k - количество чисел в массиве}
VAR a:array[1..k] of integer;
    i,summ,n:integer; {i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением}
    sr:real; {sr - среднее арифметическое}
BEGIN
  summ:=0; n:=0; {Обнуляем счетчики}
  for i:=1 to k do
    begin
      a[i]:=random(50); {Заполняем массив случайными числами}
      write (a[i],' '); {Выводим массив}
      if a[i] mod 2=0 then
        begin
          summ:=summ+a[i]; {Находим сумму элементов массива с четными значениями}
          n:=n+1
        end
    end;
  sr:=summ/n; {Находим среднее арифметическое}
  writeln;
  writeln (sr:0:2) {Выводим среднее арифметическое}
END.