сервис вопросов и ответовНайти число пар "соседних" элементов массива,являющихся четными и кратные 3
5-9 класс|
|
Bлaдлена
23 дек. 2014 г., 9:29:11 (9 лет назад)
XOPOIIIaя
23 дек. 2014 г., 12:26:03 (9 лет назад)
В цикле, кажется, так:
for I:=1 to N do
If (Mas[I] mod 2 = 0) and (Mas[I] mod 3 = 0) and (Mas[I+1] mod 2 = 0) and (Mas[I+1] mod 3 = 0)
then Sum:=Sum+1;
Перед этим, конечно, нужно заполнить массив. N - число элементов и обнулить сумму. Можно заполнить в том же цикле:
Sum:=0;
writeln ('Число элементов:');
readln(n);
writeln ('Числа:')
for I:=1 to N do begin
readln (Mas[I]);
If (Mas[I] mod 2 = 0) and (Mas[I] mod 3 = 0) and (Mas[I+1] mod 2 = 0) and (Mas[I+1] mod 3 = 0)
then Sum:=Sum+1;
end;
writeln ('Sum=',Sum);
Ответить
Другие вопросы из категории
Объем винчестера равен 80 Гбайт.Сколько на нем поместится книг,если каждая содержит 200 страниц текста,на странице - по 40 строк,в строке - 50 символов?
Решите пожалуйста)
Часы с боем бьют каждый час столько раз, сколько часов показывает часовая стрелка, а когда минутная стрелка показывает полчас-один раз. Выберите временной
диапазон, в котором часы будут бить один удар три раза подряд с интервалом в полчаса.
а)11.30-12.00 б)12.25-1.45 в)3.00-3.30 г)12.15-1.15
Помогитееее... Буду благодарна)
Читайте также
№1 Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет произведение массива с четными
значениями. №2 Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 до 10 и вычисляет среднее арифметическое элементов массива. №3 Такое же как и №2, только ...элементов массива с четными значениями.
1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива.
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.
Вы находитесь на странице вопроса "Найти число пар "соседних" элементов массива,являющихся четными и кратные 3", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.