Пернетақтада гимерсілтемені орнату бастырмасы?(Информатика)

var

   d : array of integer;

   n : integer;

function arrSumRec(d : array of integer; n : integer) : integer;

begin

   if n > d.Length-1 then exit;

   result := d[n]+arrSumrec(d, n+1);

   n += 1;

end;

begin

   write('введите количество элементов для массива ');

   readln(n);

   d := new integer[n];

   d := arrRandom(n, 1, 100);

   writeln('сгенерирован массив из ', n, ' элементов со значениями в диапозоне 1..100');

   writeln(d);

   writeln('Сумма = ', arrSumRec(d, 0));

end.

функция function arrSumRec(d : array of integer; n : integer) : integer; в качестве первого параметра получает массив сумму которого считаем в качестве второго номер члена начиная с которого считаем сумму. Не забываем что нумерация начинается с нуля. поэтому чтобы посчитать сумму всех членов массива в качестве второго параметра указываем 0.

#include <iostream>

using namespace std;

int sumofdigits(int n);

int main()

{

 int a, b, sa, sb;

 setlocale(LC_ALL, "Russian");

 cout << "Введите 2 натуральных числа: ";

 cin >> a >> b;

 sa = sumofdigits(a);

 sb = sumofdigits(b);

 cout << "\nСумма цифр первого числа: " << sa;

 cout << "\nСумма цифр второго числа: " << sb;

 if (sa > sb)

   cout << "\nСумма цифр первого числа больше, чем второго";

 else if (sa < sb)

   cout << "\nСумма цифр второго числа больше, чем первого";

 else if (sa == sb)

   cout << "\nСуммы цифр чисел равны";

}

int sumofdigits(int n) {

 int sum = 0;

 while (n != 0) {

   sum += n % 10;

   n /= 10;

 }

 return sum;

}