Задайте массив из 10 элементов с датчика случайных чисел.найдите сумму индексов элементов,которые больше среднего арифметического. выведите на экран исходный массив и полученную сумму
152
299
Ответы на вопрос:
Var i,q: integer; s: real; a: array[1..10]of integer; beginfor i: =1 to 10 do begina[i]: =random(100); s: =s+a[i]; end; s: =s/10; for i: =1 to 10 do beginwriteln(a[i]); if a[i]> s then q: =q+i; end; writeln(q); end.
Популярно: Информатика
-
олололо1230.09.2022 00:10
-
Marg0619.02.2020 18:33
-
0mixa024.04.2021 04:09
-
DanilZ215.05.2021 08:43
-
Napol2818.08.2022 18:26
-
mariasmiles29.12.2021 11:13
-
kirillstetskii08.02.2023 18:20
-
grechko888516.02.2020 22:57
-
КристинаСоболева15.07.2020 13:25
-
1505Анютка150506.08.2022 16:32