По тексту программы определите условие var i,x,s,k,n: integer; begin s: =0; k: =0; readln(n); for i: =1 to n do begin read(x); if x> 0 then begin s: =s+x; k: =k+1; end; end; if k: =0 then writeln(s) else writeln(s/k: 4: 2); end.
127
190
Ответы на вопрос:
Вычислить среднее арифметическое среди положительных чисел, введенных пользователем (количество чисел тоже определяет пользователь), вывести его с двумя знаками после запятой и четырьмя перед запятой.
Считает среднее арифметическое положительных и делит его на 8. количество чисел определяет пользователь
Популярно: Информатика
-
CERN08.04.2022 23:46
-
KseniaRogalina22.04.2021 10:06
-
azaliyazaynulinnf04.12.2021 05:15
-
vlad19941100330.01.2021 14:07
-
Romaglot30.01.2020 12:32
-
misterstepash02.12.2022 15:56
-
KristiLookNett08.04.2023 16:19
-
бакир318.10.2020 14:45
-
smirnovigor17.04.2020 03:14
-
LISAIZKOSHMAROV25.04.2020 16:10