задачка в паскале на массивы: (внутри) дан массив натуральных чисел. найти сумму элементов, кратных данному числу К

Question

Сергей Степанов · Accepted Answer

ввод числа "К" 
в цикле делишь каждый элемент массива на к, и если результат равен 0 суммируешь в переменную summ 
вывод summ 
все.

Колян · Answer

var i,k,n,s:word; a:array[1..100]of word; 
begin 
write('Введите размер массива: '); readln(n); 
writeln('Введите значения элементов массива, разделяя их пробелами'); 
for i:=1 to n do read(a[ i]); readln; 
write('Введите число k: '); readln(k); 
s:=0; for i:=1 to n do if a[ i] mod k=0 then s:=s+a[ i]; 
writeln(s); readln 
end.