Написать программу, использующую ПРОЦЕДУРУ и ФУНКЦИЮ, вычисляющую среднее арифметическое трёх чисел (числа вводит пользователь). Ввод и вывод данных осуществляется в теле основной программы.

Programe pp;

var a,b,c:integer;

begin

writeln('введите количество чисел');

read(a);

c:=0

for a=0 do begin

a:=a-1;

writeln('введите число');

read(b);

if b>0 then

c:=c+b

else

Writeln('положительное число')

end;

writeln(c);

end.

надеюсь правильно

Объяснение:

№3

        1) открой холодильник,              2) достань из холодильника жёлтую кастрюлю, в которой суп            3) поставь кастрюлю на газовую плиту,              4) зажги газ,

        5) если нет спичек, воспользуйся микроволновкой          6) нилей суп в кантейнер и закрой его

        7) поставь суп в микроволновку и выставь на таймере цифру 5

        8) нажми старт

№2

алгорит без обратной связи. потому что ребенок не смотрит выполнено ли действие или на наличие того или иного предмета. например, по истечению тех же пяти минут не факт что этот суп будет теплый