Составить блок-схему. подсчитать произведение и количество тех элементов x(n) ,которые не превосходят 7.
224
465
Ответы на вопрос:
Var a: array [1..30] of integer; i,k,s: integer; f: real; begin k: =0; s: =0; for i: =1 to 30 do if a[i]< 15 then begin k: =k+1; s: =s+a[i]; end; f: =s/k; write(f); end.
Популярно: Информатика
-
Mamayuliya198617.02.2021 08:56
-
danilcs0219.05.2021 11:29
-
Negogda09.07.2021 10:39
-
maktanya56307.10.2020 07:25
-
3drugasikaoztup315.10.2022 04:41
-
Laura1111111111121.07.2022 15:42
-
fara3228.08.2022 21:09
-
SofiaDash03.04.2020 08:47
-
lim15523.08.2020 19:32
-
DashSHAD0W28.01.2023 18:27