Ответы на вопрос:
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.
Популярно: Информатика
-
danikmy1219.06.2020 14:34
-
asovgira01.03.2020 22:32
-
bilkosha200531.12.2022 17:43
-
kot28928.01.2021 05:58
-
lolkaTV09.03.2021 16:06
-
aazzziizz24.12.2022 20:13
-
gsst2004p08tcc10.04.2022 12:11
-
fatima5208.05.2023 16:47
-
samirdebilGost15.06.2020 14:16
-
marivenkova29.04.2020 03:05