Есть ответ 👍

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

250
466
Посмотреть ответы 2

Ответы на вопрос:


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.

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

Объяснение:


P=aa × aa гаметы: (a) (a) (a) f1=aa; aa 100% правши левши родиться не могут

Популярно: Информатика