Ответы на вопрос:
Const n=5; var a: array [1..n] of integer; k,j: real; i: integer; beginfor i: = 1 to n do begina[i]: =random(101); write (a[i],' '); end; writeln; for i: = 1 to n do begink: = a[i] mod 3; if k=0 thena[i]: =a[i]*a[i]*a[i]; end; for i: = 1 to n do beginwrite (a[i],' '); end; j: =0; writeln; for i: = 1 to n do beginj: =j+a[i]; end; write (j); end.
Популярно: Информатика
-
Аккерман1126.04.2020 00:18
-
annet15058610.01.2023 03:46
-
sonya1997030.01.2020 22:59
-
armenchik200706.02.2020 02:30
-
AnastasiaKT04.12.2020 10:50
-
Valdosta1625.05.2023 15:02
-
snysor21.10.2020 20:22
-
ВасилийПупкин22723.05.2023 03:09
-
Dinez811.07.2021 21:23
-
JeDor1519.07.2021 11:24