uses crt;
type Mas=array[1..100] of integer;
{Рекурсивная функция}
function Summa(k:byte;x:Mas):integer;
begin
if k=0 then Summa:=0 else Summa:=x[k]+Summa(k-1,x)
end;
{Основная программа}
var a:Mas;
i,n,m:Byte;
begin
clrscr;
randomize;
write('Количество элементов массива n=');
readln(n);
for i:=1 to n do
begin
a[i]:=Random(20);
write(a[i],' ');
end;
writeln;
write('Сумма=',Summa(n,a));
readln
end.