Question

Вывести на экран чётные элементы массива

Answer 1

For I in massiv do
Begin
If I mod 2 =0
Then
Write(i,' ') ;
End;