Написать программу, использующую ПРОЦЕДУРУ и ФУНКЦИЮ, вычисляющую среднее арифметическое трёх чисел (числа вводит пользователь). Ввод и вывод данных осуществляется в теле основной программы.
250
466
Ответы на вопрос:
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% правши левши родиться не могут
Популярно: Информатика
-
Veronicagitarowe18.06.2020 18:25
-
Залму11126.09.2022 05:10
-
akmaralwellcom18.11.2022 10:57
-
danilvlasov13931.08.2022 03:49
-
ilonappp1803.02.2022 18:52
-
zombdanidani16.08.2020 06:15
-
ЛераЛи12324.07.2022 22:28
-
ssss1312.02.2022 23:27
-
Delishte24.08.2021 17:30
-
ordabaevabayan04.11.2021 13:15