Сделать одномерный массив.

В массив A[N] занесены натуральные числа. Найти сумму тех элементов, каторые кратны данному значению К. Элементы массива вводить с клавиатуры.

Question

Информатика

Диомид

16 сентября, 01:46

Сделать одномерный массив.

В массив A[N] занесены натуральные числа. Найти сумму тех элементов, каторые кратны данному значению К. Элементы массива вводить с клавиатуры.

+2

Ответы (1)

Знаете ответ на вопрос?

Аврея · Answer 1

Var i, k, n, sum: Integer;

a: Array[1 ... 1000000] of Integer;

begin

ReadLn (n, k) ;

for i:=1 to n do a[i]:=i;

sum:=0;

for i:=1 to n do

if a[i] mod k = 0 then

sum:=sum+a[i];

WriteLn (sum) ;

end.