Одномерные массивы. Дан массив натуральных чисел, состоящий из n элементов. Найти сумму элементов массива, кратных данному числу К. (паскаль)
Одномерные массивы.
Дан массив натуральных чисел, состоящий из n элементов. Найти сумму элементов массива, кратных данному числу К.
(паскаль)
Гость
Ответ(ы) на вопрос:
Гостьconst n = 10;
var a :array [1..n] of integer; k, sum :integer;
begin
readln(k); for i:= 1 to n do readln(a[i]); sum:= 0; for i:= 1 to n do if a[i] mod k = 0 then sum:= sum +a[i]; writeln(sum);
end.
Не нашли ответ?
Похожие вопросы