Question

дан целочисленный массив на 10 элементов.Найти количество и сумму элементов кратных k

Answer 1

var a:array[1..10] of integer;
i,k,s,r:integer;
begin
for i:=1 to 10 do readln(A[i]);
writeln('Введите число k');
readln(k);
s:=0;
r:=0;
for i:=1 to 10 do 
 if (A[i]modk=0) then begin
 r:=r+1;
 s:=A[i]+s;
end;
writeln(s,r);
end.

Answer 2

Спасибо:)