дан массив В их N натуральных чисел.найдите сумму и кол во элементов кратных заданному числу К(вводится с клавиатуры)
5-9 класс
|
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.
Другие вопросы из категории
Л.Н. Толстого «Война и мир». Что будет найдено по запросу Война и мир.
бит. Сколько бит отвели под зеленую составляющую одного пикселя, если растровое изображение размером 8х8 пикселей занимает 128 байт памяти?
Читайте также
а) кол-во элементов кратных пяти
б) кол-во двузначных отрицательных чисел
P.S. это должны быть две задачи
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
числа k и n вводятся с клавиатуры). Нулевые элементы оставить без изменения.
№1 Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру k.
№2 Дан масив целых числ. Найти в этом массиве минимальный элмент m и максимальный M. Получить в порядке возрастания все целые числа из интервала (m;M), которые не входят в данный массив.
№3 Сформировать массив простых чисел , не больших заданного натурального числа N.
№4 Сформировать массив простых множителей заданного числа.
2) среди 15 чисел найдите количество всех чисел которые являются не отрицательными