Указатели, рекурсия, помогите, не могу разобраться Опции

[aspi]

Привет! Помогите мне пожалуйста справиться с заданием
Задание такое:
Объявить массив из 15 указателей на элементы типа real. Используя генератор случайных чисел разместить в динамической памяти 15 вещественных чисел. В подпрограмме-функции найти максимальный элемент и вернуть из функции поиска указатель на найденное значение.

В данном случае не получается организовать функцию, как передать правильно параметры? Вот код без функции:

program ukazat;
const n=15;
var
  r : array [1..n] of ^real;
  i : integer;
  a : Preal;

	 begin
	 Randomize;
	  for i := 1 to n do
	  begin
		New(r[ i ]);
		r[ i ]^ := random(n);
		writeln (r[ i ]^:2 :0);
	  end;


	   for i:=1 to n do
		begin
		 if r[ i ]^ > r[i+1]^ then
		 begin
		 a^:=r[ i ]^;
		 r[ i ]^:=r[i+1]^;
		 r[i+1]^:=a^;
		 end;
		 end;

	 writeln('Указатель на максимальный элемент: ',a^:2 :0);
	 for i := 1 to n do Dispose(r[ i ]);
	 readln;
end.

А это рекурсия - таже трабла не разобраться с функцией :-(

Напишите рекурсивную функцию, которая возвращает среднее из n элементов массива чисел

program recurs;
const n=5;
var
   summ,i,j:integer;
   mass: array [1..n] of integer;
{---------------------------------------}
function frst(summ:integer):integer;
begin
       for i:=1 to n do
       begin
       frst:=frst(summ)+mass[ i ];
       end;
end;
{---------------------------------------}
begin
     writeln ('Введите элементы массива');
     for i:=1 to n do
         readln(mass[ i ]);
         frst(summ);
     i:=frst(summ);
     writeln ('Среднее арифметическое ',n,' чисел= ',i);
     readln;
end.

Буду очень рад, хотя бы намеку. Спасибо!

[klem4]

во-первых:

for i := 1 to n do
begin
New(r[i]); // <-----

во-вторых зачем сортируешь массив ? Максимум можно найти намного проще:

maxi := 1;
for i := 2 to n do
 if r[i]^ > r[maxi]^ then
  maxi := i;

// теперь максимальный элемент r[maxi]^

Сообщение отредактировано: klem4 - 23.05.2008 20:32