Составьте пожалуйста программу в Pascal

Question

Составьте программу ввода с клавиатуры массива целых чисел а [1..10] и вывода на экран элементов массива с чётными положительными значениями????

john_pushington · Accepted Answer

var a: array[1..10] of integer;i:integer;beginfor i:=1 to 10 do    begin      readln(a[i]);     if (a[i] mod 2 = 0) and (a[i] > 0) then writeln ('Положительное и четное: ', a[i]);   end;end.
//Программа проверяет каждое число при вводе, т. е. если введённое число является положительным и четным, то программа его сразу же выводит.

natalia_pushenko_7 · Answer

НАПИСАТЬ ПРОГРАММУ, КОТОРАЯ ПРОВЕРЯЕТ, ЯВЛЯЕТСЯ ЛИ ЧЕТНЫМ ЧИСЛО, ВВЕДЕННОЕ ПОЛЬЗОВАТЕЛЕМ