// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandomReal(15,14,24); a.Println;
a.Transform(t->real(Round(t))); a.Println
end.
Пример
15.144106314119 19.8795435940286 22.5428174485186 19.9978900225823 21.3831587645147 21.5881912734305 19.0899469736451 14.2965723910819 23.6170256797304 23.8905989061532 23.368818551008 20.193294365049 17.959404250588 23.5537609698036 14.6951856150735
15 20 23 20 21 22 19 14 24 24 23 20 18 24 15