Код программы

[as1212]

Помогите написать программу в паскале для решения данной задачки

Даны натуральные числа m,n, действительные числа
a[1],a[2],...,a[mn]. Вычислить a[1]a[2]...a[m]+
+a[m+1]a[m+2]...a[2m]+a[(n-1)m+1]a[(n-1)m+2]...a[nm].


Заранее благодарен.

[Tony Parker]

Решение:

var 
  sum: integer; { вычисляемая сумма }
  mul: integer; { для вычисления произведения }

sum:= 0;
mul:= 1;
for j:= 1 to m do
  mul:= mul * a[j];
sum:= sum + mul;

mul:= 1;
for j:= 1 to m do
  mul:= mul * a[m+j];
sum:= sum + mul;

mul:= 1;
for j:= 1 to m do
  mul:= mul * a[(n-1)*m + j];
sum:= sum + mul;

writeln('Сумма равна: ', sum);

[as1212]

Вот написал программу используя ваш код но есть одна проблема

uses crt;
const m=3; n=2;
var i,j:integer; a:array[1..m*n] of integer;
sum: integer; { вычисляемая сумма }
mul: integer; { для вычисления произведения }
begin clrscr;
WRITELN('ВВЕДИТЕ ',m*n,' ЧИСЕЛ');
FOR J:=1 TO m*n DO read(a[j]) ;
FOR J:=1 TO m*n DO WRITE(a[j]:4);
WRITELN;
sum:= 0;
mul:= 1;
for j:= 1 to m do
mul:= mul * a[j];
sum:= sum + mul;

mul:= 1;
for j:= 1 to m do
mul:= mul * a[m+j];
sum:= sum + mul;

mul:= 1;
for j:= 1 to n*m do
mul:= mul * a[(n-1)*m + j];
sum:= sum + mul;

writeln('Сумма равна: ', sum);
end.

В строке mul:= mul * a[(n-1)*m + j]; выбивает ошибку с текстом выход за граници диапазона как исправить?