Объявить массив из 4 элементов в разделе переменных. организовать ввод значений пользователем. найти среднее значение элементов.

Пишу на паскале var cp: real; i,k,sum: integer; mass: array[1..4] of integer; begin for i: =1 to 4 do begin write('mass[',i,']= '); read(mass[i]); k: =k+1; sum: =sum+mass[i]; end; cp: =sum/k; writeln('среднее значение переменных равно ',cp); end.

Это рекурсивный вызов процедуры.   при первом вызове f(7)   по условию  if n> 1 then   будет вызов этой же процедуры     f(n div 2);   или   f(3),   далее,   т.к. 3> 1,   то снова будет вызвана процедура   f(3 div 2)   или f(1),   теперь не выполняется условие   n> 1,   следовательно, будет выполнен оператор       write ('**');   -   напечатаются две звездочки, после выхода из процедуры продолжится выполнение процедуры при втором вызове - будут напечатаны еще 2 звездочки, затем продолжится выполнение при первом вызове - еще будут напечатаны 2 звездочки.   в результате вызова f(7) будут напечатаны 6 звездочек   ******.

Вообщем, а - |    б - c: | в - пушкин | г - \ | д - .doc | е - поэзия б        .    г      а              .      г    .  е              .    г      в              .    д c:       .    \    .    \    .  поэзия .    \      пушкин    .    .doc ответ: бгагегвд