Question

Написать программу.

Дано:

В одной корзине лежит 150 яблок весом от 10 до 50 грамм,

положенных туда случайным образом.

Найти:

Вес корзины в килограммах с точностью до двух десятых знаков

после запятой.

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrRandom(150, 10, 50);

 a.Println;

 Writeln('Вес корзины ', a.Sum / 1000:0:2, ' кг')

end.