Ответы на вопрос:
Const n=30; var a: array [1..n] of integer; s, i: integer; begin randomize; for i: =1 to n doa[i]: = random (151)+50; for i: = 1 to n dos: =s+a[i]; writeln (количество=,s); readln; end.
Популярно: Информатика
-
slava20syper07.10.2021 18:48
-
anjnazarova12.05.2021 23:59
-
котя199515.04.2023 05:56
-
milena2018101.04.2020 14:41
-
Aydan20401.05.2022 08:05
-
lizakonnova14.11.2020 11:19
-
peranyaanko10.06.2021 17:35
-
lshellter07.11.2020 12:16
-
Elnur1998211.02.2020 23:57
-
qwee1010426.04.2023 16:25