Ррекурсия в Паскале Опции

[Daminik]

Народ помогите с Паскалем, короч задач такая нужно написать прогу с рекуррентным поиском
которая находила max элемент в одномерном массиве
я писать начал а вот это прогу но рекурсию сделать не могу

Program alg1;
Uses
    Crt;
Type
    massiv = array [1..100] of integer;
Var
   a:massiv;
   i,n,max:integer;
   f:integer;
function poisk(b:massiv):integer;
Var
   x:integer;
Begin
??????????????
?????????????? 
end;
Begin
     ClrScr;
     write('Vvedite razmernost massiva: ');
     readln(n);
     writeln('------------------------------');
      for i:=1 to n do
       Begin
        write('a[',i,'] - > ');
        readln(a[i]);
       end;
      f:=poisk(a);
      writeln('Max aliment massiva: ',f);
      readkey;
     end.

Р

Сообщение отредактировано: Lapp - 12.12.2007 11:33