Составьте программу, которая заполняет массив а N случайными целыми числами в диапазоне...

Question

Составьте программу, которая заполняет массив а N случайными целыми числами в диапазоне от 10 до 30, и выводит на экран элементы, значения которых больше 5 и меньше 15

Answer 1

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),10,30); a.Println;
  a.Where(k->k.Between(6,14)).Println
end.

Пример
n= 17
17 29 16 23 13 10 28 25 26 12 15 10 18 19 18 17 20
13 10 12 10