var
a, q, n, i, S: integer;
begin
read(n, q);
for i := 1 to n do
read(a);
if a mod q = 0 then S := S + a;
end;
writeln(S);
end.
Объяснение:
q - заданное число которому должны быть кратны элементы массива
n - кол-во элементов массива
var
a, q, n, i, S: integer;
begin
read(n, q);
for i := 1 to n do
begin
read(a);
if a mod q = 0 then S := S + a;
end;
writeln(S);
end.
Объяснение:
q - заданное число которому должны быть кратны элементы массива
n - кол-во элементов массива