Ответы на вопрос:
Pascalabc.net var a,b,s: integer; begin a: =1; while a< > 0 do begin read(a); if a > 0 then begin s+=a; b+=1; end; end; writeln('сумма чисел: '+s); writeln('среднее арифметическое: '+s/b); end.
Популярно: Информатика
-
nikitin02113.09.2022 15:53
-
shchevelevn03.12.2021 18:13
-
НастяТептюк26.07.2022 09:48
-
Mimimimimi555555555514.07.2020 03:10
-
Kostyaofficial02.06.2021 03:54
-
Нурюс09.01.2022 12:26
-
margarita03062013.07.2020 23:11
-
sashanepasha07.05.2023 22:43
-
minaiseverp07pug01.04.2022 06:33
-
MrXMen26.06.2021 11:19