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

1

Ответы и объяснения

Лучший Ответ!
2012-05-26T10:43:22+00:00

var a:array[1..N] of integer;

s,K:integer;

begin

readln(K);

for i:=1 to N do readln(a[i]);

for i:=1 to N do

if (a[i] mod K=0) then s:=s+a[i];

write(s);

end.