Найти среди элементов массива элементы, которые имеют четное значение и не делятся на "7" - Pascal ABC

  1. Дан целочисленный одномерный массив из 25 элементов. Элементы массива могут принимать целые значения от -500 до 500. Составить программу, которая позволяет найти и вывести значение среди элементов массива, которые имеют четное значение и не делятся на "7". Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого четно и не кратно "7"


textual

Код к задаче: «Найти среди элементов массива элементы, которые имеют четное значение и не делятся на "7" - Pascal ABC»

Const n=5;
Var A:array[1..n] of integer;
    i:integer;
Begin  
    writeln('Введите ',n,' элементов');
    For i:=1 to n do
     read(A[i]);
    For i:=1 to n do
     if (A[i] mod 2 = 0)and(A[i] mod 7 <> 0) then write(A[i],' ');
    readln;
End.

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.727 из 5



Похожие ответы
  1. Заполнить числами, начиная с единицы, квадратный массив из NxN элементов «змейкой». Пример, для массива 4х4: Код 1 2 3 4 8 7 6 5 9 10 11 12 16 15 14 13 Реализовать ввод размерности с клавиатуры

  1. Помогите исправить ошибку . Задание :Сформировать двумерный массив. Удалить из него строку и столбец, на пересечении которых находится минимальный элемент.

  1. Создать одномерный числовой массив из 6 элементов и вывести результат на экран. Затем элементы, стоящие на нечетных местах уменьшить на 2, подсчитать сумму этих элементов и вывести эти значения на экран с пояснениями.

  1. Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). В первом массиве осуществить циклический сдвиг вправо на a позиций, во втором на b, в третьем на c. Нужно сделать через процедуры Заранее благодарю

  1. Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). Если количество четных элементов больше, то отсортировать его по возрастанию, иначе по убыванию Обязательно сделать через процедуры Заранее благодарю

  1. Найти минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы.

  1. Введите массив из 5 элементов с клавиатуры и найдите количество элементов , запись которых в 2с.с-палиндром(например,10101 в двоичной=21)

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!

  1. Помогите написать программу Создать вектор М, содержащий количество отрицательных элементов каждого столбца матрицы z(3,4).