Вопрос по информатике:
Одномерные массивы.
Дан массив натуральных чисел, состоящий из n элементов. Найти сумму элементов массива, кратных данному числу К.
(паскаль)
- 12.03.2018 01:57
- Информатика
- remove_red_eye 14067
- thumb_up 25
Ответы и объяснения 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.
- 13.03.2018 21:57
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.