Пожалуйста помогите СРОЧНО!!!!!!...

denis610™ · 21 фев 2010

Пожалуйста помогите СРОЧНО!!!!!! Очень надо!!!!! Дан массив натуральны чисел.Найти сумму элементов кратных данному К. Программу написать наПАСКАЛЕ!!!

___двиЖЕНиЯ___ · 21 фев 2010

var a:array[1..N] of integer;
s,K:integer;
begin
readln(K);
for i:=1 to N do readln(a);
for i:=1 to N do
if (a mod K=0) then s:=s+a;
write(s);
end.