Водномерном массиве а(10) вычислить среднее арифметическое положительных элементов
252
422
Ответы на вопрос:
Var a: array[1..1000000]of integer; b,i,n,c,k: integer; begin readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do if a[i]> 0 then begin c: =c+a[i]; k: =k+1; end; write(c/k); end.
Популярно: Информатика
-
anelyasabina2023.12.2022 17:11
-
onlysvp18.10.2022 01:06
-
orlovapolina1407.10.2022 23:39
-
Рафаэлла200411.03.2020 15:38
-
NAPAS22829.10.2021 20:52
-
Nikalusha30.07.2022 04:13
-
Otahalepi14.07.2021 14:08
-
znmbuzinis16.02.2022 05:56
-
taetae830.10.2022 15:57
-
дильназ14909.08.2020 20:23