Одномерные массивы.
5-9 класс
|
Дан массив натуральных чисел, состоящий из 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.
Другие вопросы из категории
символов. какое количество информации содержится на каждом носителе? какое количество информациии заключено во всем своде законов*
соединение, скорость которого на 1024 бит в секунду больше.
Читайте также
Дан массив натуральных чисел, состоящий из n элементов. Найти сумму элементов массива, кратных данному числу К.
в,их значения и количество.
2.В одномерном массиве целых чисел,содержащем 20 элементов,удалить k-ый элемент массива.Массив заполняется случайным образом числами от 0 до 50.
отрицательные элементы начального массива.
с применение подпрограмм и процедур желательно
Напишите программу на Паскале.ВЫвести на экран номера всех элементов массива B[1..n],не совподающих с максимальным
помогите