Ответы на вопрос:
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.
Популярно: Информатика
-
НикаиВикаСестры111030.06.2022 03:26
-
axieva3525.05.2022 04:55
-
TaiGaaara13.02.2022 18:22
-
Ученик22160302.03.2021 10:25
-
maivina777777713.10.2022 15:49
-
erzhankenzhekan01.05.2023 10:21
-
Saens32120.02.2021 10:40
-
AlinaElsukova01.09.2022 08:02
-
котяточка18.12.2020 20:11
-
beliy11232911.05.2022 06:52