===== PascalABC.NET =====
begin
var a := ArrRandom(150, 10, 50);
a.Println;
Writeln('Вес корзины ', a.Sum / 1000:0:2, ' кг')
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(150, 10, 50);
a.Println;
Writeln('Вес корзины ', a.Sum / 1000:0:2, ' кг')
end.