Ответы на вопрос:
Program ok; const n=40; var a: array[1..n] of integer; sum,i,k: integer; begin randomize; read(k); sum: =0; for i: =1 to n do a[i]: =random(1000); for i: =1 to n do begin if (a[i] mod k = 0) then sum: =sum+a[i]; end; write('сумма элементов массива кратных ', k, ' = ', sum); end.
Популярно: Информатика
-
almaz10817.03.2022 17:11
-
Анара200012.04.2020 17:50
-
TimurA122.08.2021 15:54
-
сердечко14120.09.2022 16:48
-
arkadyhmp074l615.04.2022 01:59
-
Aknura15070227.08.2020 16:31
-
Yulia142103.11.2021 23:05
-
Ferdgi05.03.2020 04:07
-
fish170428.06.2023 23:34
-
ahmed005126.09.2022 17:20