Одномерные массивы.
Дан массив натуральных чисел, состоящий из n элементов. Найти сумму элементов массива, кратных данному числу К.
(паскаль)
Дан массив натуральных чисел, состоящий из n элементов. Найти сумму элементов массива, кратных данному числу К.
(паскаль)
More Questions From This User See All
Answers & Comments
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.