Одномерные массивы. дан массив натуральных чисел, состоящий из n элементов. найти сумму элементов массива, кратных данному числу к. (паскаль)

LymarIvan LymarIvan    1   08.06.2019 08:10    0

Ответы
умник20056 умник20056  07.07.2020 15:28
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика