Найти с помощью рекурсии сумму элементов массива и сумму элементов больше нуля

@Lobsters · Регистрация: 16.12.2014

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

Всем привет!!! Прошу помочь мне разобраться с рекурсией:

Нужно найти с помощью рекурсии сумму элементов массива и сумму элементов больше нуля.
Вот написал как найти сумму, но вот как найти еще сумму элементов больше нуля так и не понял:

Pascal

Program Rec2;
Type LinMas = Array[1..100] Of Integer;
Var A : LinMas;
    I, N : Byte;
Function Summa(N : Byte; A: LinMas) : Integer;
Begin
    If N = 0 Then Summa := 0 Else Summa := A[N] + Summa(N - 1, A)
End;
Begin
    Write('Количество элементов массива? ');
    ReadLn(N); 
    Randomize;
    For I := 1 To N Do
    Begin
       A[I] := -10 + Random(21);
       Write(A[I] : 4)
    End;
    WriteLn;
    WriteLn('Сумма: ', Summa(N, A))
End.

Спасибо за помощь!!

@vint-81 · 16.12.2014, 21:40

Pascal

Function Summa(N : Byte; A: LinMas) : Integer;
Begin
    If N = 0 Then Summa := 0 Else if a[n]>0 then Summa := A[N] + Summa(N - 1, A)
                                            else summa:=summa(n-1,a)  
End;

	16.12.2014, 21:40