// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var a:=ArrRandom(43,-7,25); a.Println;
Write('Первые 18: '); a[:18].Println
end.
Тестовое решение:
5 16 13 14 -6 18 11 -4 16 -5 -2 21 22 3 14 8 18 10 19 18 -6 -4 21 19 -3 8 13 3 11 10 -7 11 25 18 20 1 14 -1 10 22 -1 7 14
Первые 18: 5 16 13 14 -6 18 11 -4 16 -5 -2 21 22 3 14 8 18 10