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

1

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

  • Kitsu
  • почетный грамотей
2012-11-21T17:46:20+04:00

const N=10;
var b:array[1..N]of integer;
k,i,sum,amo:integer;
begin
readln(k);
for i:=1 to N do readln(b[i]);

for i:=1 to N do if (b[i] mod k)=0 then begin sum:=sum+b[i]; amo:=amo+1; end;

writeln('Summa chisel kratnih ',k,' - ',sum,'; kolichestvo takih chisel - ',amo);
end.