Ответы на вопрос:
Var mas, c: array[1..20]of real; i, c_n: integer; s: real; begin randomize; for i : = 1 to 20 do begin mas[i] : = random(100) - 50; if (mas[i] > 0) and (i mod 2 = 0) then begin c_n : = c_n + 1; c[c_n] : = mas[i]; write(c[c_n], ' '); s : = s + c[c_n] * c[c_n]; end; end; writeln(); writeln('s = ', s); end.
Популярно: Информатика
-
ктознаетрусский01.09.2020 04:16
-
3579448817.10.2022 23:46
-
ilya49429.03.2021 02:16
-
Jimitapark813.06.2023 20:05
-
katytucan116.07.2022 09:43
-
замира5925.10.2021 03:44
-
fgegegegeegrrfff13.09.2020 04:54
-
57765612.12.2022 00:14
-
Наоя08.01.2020 23:17
-
VikaFragran15.02.2022 16:21