===== PascalABC.NET =====
begin
var a := ArrRandom(10, -99, 99);
a.Println;
var n := ReadInteger('Сколько элементов суммировать?');
a?[:n].Sum.Println
end.
