begin
var x := ArrRandom(10, -50, 50);
x.Println;
x[0] := x.Take(5).Where(t -> t < 0).Count;
x.Println
end.
begin
var x := ArrRandom(10, -50, 50);
x.Println;
x[0] := x.Take(5).Where(t -> t < 0).Count;
x.Println
end.