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

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программка не работает, обновите версию!

begin

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

end.

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

18 14 12

javascript:var a=[]; for(let сч=0;счlt;10;сч++) a.push(parseInt(prompt())); alert(a.filter(function(зн)return зн gt; 0 amp;amp; зн % 2 == 0;));