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

Формулировка задачи:

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

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

textual
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


СОХРАНИТЬ ССЫЛКУ