Question

Дан массив, состоящий из целых чисел. Напишите программу, которая выводит те элементы массива, которые являются чётными числами.

Входные данные
Сначала задано число N — количество элементов в массиве (1N100). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел.
PASCAAAALLLL
Даю 35 баллов

Answer 1

Ответ:

var n,i:integer;

a:array [1..100] of integer;

begin

readln(n);

for i := 1 to n do read(a[i]);

writeln;

for i := 1 to n do if a[i] mod 2 = 0 then write(a[i]:4)

end.

Answer 2

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 var a := ReadArrInteger(n);

 a.Where(p -> p.IsEven).Println

end.