1.дана последовательность целых чисел, вводимых с клавиатуры (до 0). найти среднее арифметическое чисел. нужно , решите
105
173
Ответы на вопрос:
Var a,n: integer; s: real; begin n: =-1; s: =0; repeat read(a); n: =n+1; s: =s+a; until a = 0; writeln('среднее арифметическое введённых чисел равно: ',s/n); end.
Популярно: Информатика
-
Lizikjung29.10.2021 08:09
-
Alexa2019.07.2022 03:10
-
AndreiBrazhnikov127.05.2020 22:26
-
Cvertuhi07.10.2022 19:49
-
АртиUp18.05.2021 19:15
-
ivanova1987lena07.04.2022 22:19
-
nikita5755125.04.2021 18:10
-
PEWALWIK15.12.2020 01:52
-
Romochkaa26.02.2021 20:58
-
guardian00988825.10.2021 19:43