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

Одномерные массивы.

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

Задать свой вопрос
1 ответ
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт