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

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018Внимание! Если программа не работает, обновите версию!

begin

 ReadSeqInteger(10).Where(t -> (t > 0) and (t.IsEven)).Println

end.

15 -12 0 18 -72 14 21 -5 12 2518 14 12

javascript:var a=[]; for(let сч=0;сч<10;сч++) a.push(parseInt(prompt())); alert(a.filter(function(зн){return зн > 0 && зн % 2 == 0;}));