Question

1.Дан массив из 16 целочисленных элементов. Заполните его случайными целыми числами из интервала от -15 до 25.
2.Дан одномерный массив длиной 18 чисел. Заполните его четными числами по порядку, начиная с -8.
3.Дан одномерный массив длиной 18 чисел. Заполните его нечетными числами по порядку, начиная с 7.

Answer 1

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

begin
  var a:=ArrRandom(16,-15,25); a.Println;
  var b:=ArrGen(18,i->2*i-8); b.Println;
  var c:=ArrGen(18,i->2*i+7); c.Println
end.

Пример
24 -2 -8 9 -10 10 3 9 21 8 15 -8 -12 16 15 4
-8 -6 -4 -2 0 2 4 6 8 10 12 14 16 18 20 22 24 26
7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41