Ответы на вопрос:
Const nmax = 99; var i, n, k, s: integer; a: array[1..nmax] of integer; begin randomize; write('введите количество элементов массива (1-99)'); readln(n); write('введите число k '); readln(k); writeln('исходный массив'); s : = 0; for i : = 1 to n do begin a[i] : = random(98) + 1; write(a[i]: 3); if (a[i] mod k) = 0 then s : = s + a[i] end; writeln(#13#10, 'сумма элементов, кратных ', k, ' равна ', s) end. тестовое решение: введите количество элементов массива (1-99)12 введите число k 3 исходный массив 34 63 18 81 91 83 83 80 10 59 81 74 сумма элементов, кратных 3 равна 243
Популярно: Информатика
-
НастяБлог16.02.2023 11:15
-
godday14.08.2020 07:03
-
тимур61519.11.2021 10:32
-
Leranikitina19904.02.2021 19:10
-
yuliana08070401.12.2020 07:12
-
роlinka200323.11.2022 19:06
-
Ася2oo328.05.2020 15:06
-
DashaZakh21.11.2022 21:09
-
Pasthop14.04.2020 08:46
-
dayanocha008008.05.2021 09:39