Задан массив в (10) элементов. найти следующие суммы элементов: а) сумму всех элементов массива; б) сумму, отдельно с четными и нечетными индексами. , сильно нужно на завтра < 3

На паскале что то вроде такого: uses graphabc; var sum, sum_chetn, sum_nechetn : integer; b: array [1..10] of integer; begin for var i : = 0 to 10 do begin sum : =sum + b[i]; //сумма всех элементов if (i mod 2 =0) then begin sum_chetn : = sum_chetn + b[i]; //сумма всех четных элементов end else begin sum_nechetn : = sum_nechetn + b[i]; //сумма всех нечетных элементов end; end; println('сумма всех элементов: '); println(sum); println('сумма всех четных элементов: '); println(sum_chetn); println('сумма всех нечетных элементов: '); println(sum_nechetn); end.

Все нормальные люди делают это так: procedure f(n: integer); forward; procedure g(n: integer); forward; procedure f(n: integer); begin   writeln('вызов f(',n,') - *');   //write('*');   if n> 10 then f(n-2) else g(n);   writeln('завершение f(',n,')') end; procedure g(n: integer) ; begin   writeln('вызов g(',n,') - **');   //write('**');   if n> 1 then f(n-3);   writeln('завершение g(',n,')') end; begin   f(20) end. результат вызов f(20) - * вызов f(18) - * вызов f(16) - * вызов f(14) - * вызов f(12) - * вызов f(10) - * вызов g(10) - ** вызов f(7) - * вызов g(7) - ** вызов f(4) - * вызов g(4) - ** вызов f(1) - * вызов g(1) - ** завершение g(1) завершение f(1) завершение g(4) завершение f(4) завершение g(7) завершение f(7) завершение g(10) завершение f(10) завершение f(12) завершение f(14) завершение f(16) завершение f(18) завершение f(20) считаем звездочки, их 17. осталось оформить ответ, сделав вид, что это не программная выдача, а "я такой умный, на бумажке расписал". а "ненормальные люди" и в самом деле делают это вручную, не понимая, что ручной разбор рекурсии такой длины - это глупость.