Найти среди элементов массива элементы, которые имеют четное значение и не делятся на "7" - Pascal ABC
Формулировка задачи:
Дан целочисленный одномерный массив из 25 элементов. Элементы массива могут принимать целые значения от -500 до 500. Составить программу, которая позволяет найти и вывести значение среди элементов массива, которые имеют четное значение и не делятся на "7". Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого четно и не кратно "7"
Решение задачи: «Найти среди элементов массива элементы, которые имеют четное значение и не делятся на "7"»
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д