Рекурсия и Массивы

[square]

Уважаемы форумчане! Буду очень признателен, если вы поможете найти ошибки в программах.
1) Составить программу для решения задачи, используя рекурсивные функции: Найти значение произведения X1*X2*...*Xn, где X1=const, а Xi=(Xi-1)+3.
2) Дан двумерный целочисленный массив. Упорядочить каждую строку массива по возрастанию.

Мои наработки(программы работают, но не правильно..)
1)var
itog:Real;
q,i,x:Integer;

function pr(n,x:real): real;
begin
if n=1 then pr:=x else pr:=pr(n-1,x)*pr(n-1,x+3);
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln ('Vvedite q');
readln (q);
writeln ('Vvedite x');
readln (x);
itog:=1;
for i:= 1 to q do
begin
itog:=itog*pr(q,x);
end;
writeln('proizvedenie= ', itog:2:2);
readln;
end.

2)var mas: array[1..5, 1..5] of integer;
i,j,s: integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
mas[i,j]:=random(100);
write (mas[i,j], ' ');
end;
writeln;
end;
s:=0;
for j:=2 to 5 do
begin
for i:=j to 5 do
if mas[i-1,j]>mas[i,j] then
begin
s:=mas[i-1,j];
mas[i-1,j]:=mas[i,j];
mas[i,j]:=s;
end;
end;
readln;
end.

[Sciv]

Первая программа

type tmass=array [1..25] of real;

var
itog:Real;
q,i:Integer;
x: tmass;

function pr(n: integer; a: tmass): real;
var tmp: real;
begin
  tmp:=a[n];
  if n>1 then tmp:=pr(n-1,a)*tmp;
  pr:=tmp;
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln ('Vvedite q ');
readln (q);
writeln ('Vvedite x1 ');
readln (x[1]);
WriteLn('Massiv:');
Write(x[1]:2:2);
for i:=2 to q do begin
  x[i]:=x[i-1]+3;
  Write(', ',x[i]:2:2);
end;
WriteLn;
itog:=pr(q,x);
writeln('proizvedenie= ', itog:2:2);
readln;
end.

[square]

Sciv, спасибо!!

[Sciv]

Сорри, из-за тормозов два раза один код выкинулся.
А вторая задача - обычная сортировка, пишешь функцию или процедуру для сортировки, в качестве параметра передаешь массив и номер сортируемой строки.

А в основном коде в цикле вызываешь эту процедуру. Только массив должен передаваться как аргумент var.

[square]

Sciv, Премного Вам благодарен за помощь.

[zogi]

рекурсивная функция вычисления количества положительных нечетных элементов в целочисленном массиве {a[j]}, где j=1,2,...,n
funct (int a[],int n)
{int i;
if (n==0) k=0;
if (a[i]>0)&&(a[i]%2!=0) return k++;
else return funct (a,n-1)
}
что не так?