PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(50, -99, 99);
a.Println;
a[1::2].Average.Println
end.
-93 66 -7 -12 -1 -21 -56 64 36 64 -45 12 13 -22 -40 -80 10 -77 -82 10 -94 -78 43 14 18 77 -90 -66 12 82 -66 17 33 77 -20 -51 -26 30 -92 74 7 34 76 98 11 -12 45 -23 13 59
13.44