{Лови прогу для одномерного массива. Если он двумерный, могу модифицировать. Должна работать, не работает - отпишись, отыщу паскаль и исправлю. Кидай прям весь ответ, кэп. Комментарии подотри, опять же кэп}
program massiv; var x:array[1..10] of real; n, i:integer; s:real;
begin writeln('Vvedite razmer massiva'); readln(n); if (n<1) or (n>10) then writeln('Neverno zadano znacheniye razmera massiva') else begin {check: +} for i:=1 to n do begin writeln('Vvedite element ', i, 'iz ', n); readln(x[i]); end; {enter the array} s:=0; for i:=1 to n do begin s:=s+power(x[i], 3); end; writeln(s:2:2); end; readln; {stop here to read the program answer} end.
function Fact(n:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 2 to n do
rez := rez * i;
Fact := rez;
end;
function Pow(a, x:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to x do
rez := a * rez;
Pow := rez;
end;
var
a, b, n, i:integer;
F:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('n = '); readln(n);
F := 0;
for i := 1 to n do
F := F + Fact(n - i + 1)/(Pow(a,i) - Pow(b, i));
writeln('F = ', F);
end.