Заполнить массив из 10 частей случайными числами в промежутке [0,100] и

Заполнить массив из 10 элементов случайными числами в промежутке [0,100] и подсчитать среднее значение всех частей, которые lt;50
Пожалуйста, без randomize и иных "изысков".

Задать свой вопрос
1 ответ
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(10,0,100); a.Println;
  Writeln(a.Where(x-gt;xlt;50).Average)
end.

Пример
59 31 97 34 33 2 64 84 79 37
27.4
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт