Задать вопрос

Найти число пар соседних элементов массива, являющихся чётными числами. ABC Pascal!

+2
Ответы (1)
  1. 19 мая, 01:09
    0
    Var N, a, i, sum: integer;

    begin

    //вводим исходные данные

    write ('Введите число N: '); readln (N);

    write ('Введите число a: '); readln (a);

    //находим сумму

    sum:=0;

    for i:=1 to N do

    //проверяем, кратно ли число 5 и меньше ли a

    if (i mod 5 = 0) and (i
    //вывод

    writeln ('Сумма всех чисел от 1 до ', N, ', которые кратны 5 и не превышают ', a, ', равна ', sum);

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Найти число пар соседних элементов массива, являющихся чётными числами. ABC Pascal! ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
1) Найти сумму отрицательных элементов массива целых чисел. Размерность массива 10. Заполнение массива осуществить случайными числами от - 20 до 20. 2) Найдите сумму чётных элементов массива целых чисел. Размерность массива 20.
Ответы (1)
For i:=1 to N do Begin write ('C[', i,']='); readln (C[i]); end * Приведенный фрагмент программы, предназчен для 1 вывода массива в столбец 2 вывода массива в строку 3 формирования массива случайными числами 4 ввода массива с клавиатуры For i:=
Ответы (1)
Дан массив целых чисел. Нумерация элементов начинается с 0. Выведите все элементы массива с четными номерами. Формат входных данныхСначала задано число N - количество элементов в массиве, N100. Далее через пробел записаны N чисел - элементы массива.
Ответы (1)
Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива. Размерность массива-20. Заполнение массива осуществить случайными числами от 150 до 300
Ответы (1)
1. Имеется целочисленный массив, состоящий из 15 элементов: a) Найти сумму a[1] и a[7] элементов; b) Найти разность a[9] и a[3] элементов; c) Найти среднее арифметическое всех элементов массива; d) Найти произведение всех элементов массива.
Ответы (1)