Question

Задача 1.
заполнить массив из 10 элементов случайными числами в интервале -10..10 и выполнить циклический сдвиг влево без первого элемента
задача 2.
заполнить массив из 10 элементов случайными числами в интервале 0..4 и вывести номера всех элементов равных x

Answer 1

// PascalABC.NET 3.3
1.
begin
  var a:=ArrRandom(10,-10,10); a.Println;
  a:=a[1:]; a.Println;
end.

Пример:
7 4 0 -4 0 8 5 -6 -9 -8
4 0 -4 0 8 5 -6 -9 -8

2.
begin
  var a:=ArrRandom(10,0,4); a.Println;
  var x:=ReadInteger('x =');
  a.IndexesOf(z->z=x).Select(z->z+1).Println;
end.

Пример:
2 1 3 0 4 2 3 2 3 0
x = 3
3 7 9