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

Answer 2

Задача 1: Для решения задачи, заполним массив из 10 элементов случайными числами в интервале [-10, 10]:

import random

array = [] for i in range(10): array.append(random.randint(-10, 10))

Затем выполним циклический сдвиг влево без первого элемента:

temp = array[0] for i in range(1, 10): array[i - 1] = array[i] array[9] = temp

Теперь массив array содержит исходный массив со сдвигом влево без первого элемента.

Задача 2: Для решения задачи, заполним массив из 10 элементов случайными числами в интервале [0, 4]:

import random

array = [] for i in range(10): array.append(random.randint(0, 4))

Затем выведем номера всех элементов равных x:

x = 2 for i in range(10): if array[i] == x: print(i)

Таким образом, программа выведет номера всех элементов массива, которые равны числу x (в данном случае x = 2).