ТутРешу.Ру

Дан массив В их N натуральных чисел

Задание:

Дан массив В их 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.




Знаете другой ответ?

Отправить свой ответ