Задание:
Дан массив В их N натуральных чисел. Найдите сумму и кол во элементов кратных заданному числу К (вводится склавиатуры)
Решение:
const N=10; var b: array[1… N]of integer; k,i,sum,amo: integer; beginreadln (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.
Знаете другой ответ?