Question

В массиве А из 20 целых чисел найти сумму тех элементов, которые кратны заданному числу К (число К запрашивать с клавиатуры). Элементы массива в диапазоне от 10 до 100. ПАСКАЛЬ!

Answer 1

Ответ:

const N=20;

var

a: array [1..100] of integer;

sum,i,k: integer;

begin

write('Введите элементы массива: ');

for i:=1 to N do

read(a[i]);

writeln('Элементы массива a: ');

for i:=1 to N do

write(a[i],' ');

writeln;

write('Введите число K: ');

readln(k);

for i:=1 to N do

if (a[i] mod K = 0) then

sum:=sum+a[i];

writeln('Сумма элементов равна: ', sum);

end.