Написать программу с рекурсивной функцией, вычисляющей сумму элементов одномерного массива.

@sat122 · Регистрация: 05.10.2010

Студворк — интернет-сервис помощи студентам

Написать программу с рекурсивной функцией, вычисляющей сумму элементов одномерного массива.
Помогите плз не могу сделать

@Puporev · 19.11.2010, 18:01

Pascal

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.

@sat122 1 / 1 / 0 Регистрация: 05.10.2010 Сообщений: 30
		1
	Написать программу с рекурсивной функцией, вычисляющей сумму элементов одномерного массива. 19.11.2010, 17:57. Показов 1037. Ответов 1 Метки нет (Все метки) Написать программу с рекурсивной функцией, вычисляющей сумму элементов одномерного массива. Помогите плз не могу сделать 0

Опции темы

Написать программу с рекурсивной функцией, вычисляющей сумму элементов одномерного массива.

Решение