Ответы на вопрос:
Var c: array [1..20] of integer; i,n: integer; begin randomize; for i: =1 to 20 do c[i]: =random(50); for i: =1 to 20 do write(c[i],' '); for i: =1 to 20 do if c[i] mod 5=0 then n: =n+c[i]; writeln; writeln('сумма: ',n); end.
Популярно: Информатика
-
viktoria220604.06.2020 22:52
-
Rozia224421.05.2020 15:13
-
dVioletta04.05.2023 13:50
-
EvaKaa25.06.2022 08:39
-
joker90211.01.2022 00:50
-
lenapanfilova008.04.2023 22:56
-
vadimfroloww15.03.2023 12:11
-
АлисияАлисия18.04.2020 03:12
-
OgoKatya27.05.2020 05:00
-
Ruslan12324415.12.2020 02:04