Напишите программу, которая заполняет массив N=10 элементов случайными числами в диапозоне[10,50], выводит его на экран, а затем находит индексы всех элементов, равных введенному числу X. Программа должна вывести ответ"не найден", если в массиве таких элементов нет.

begin

 var A := ArrRandom(10, 10, 50);

 A.Println;

 var X := ReadInteger();

 var ind := A.Indices(p -> p = X);

 if ind.Count > 0 then print(ind) else print('таких нет');

end.

Объяснение:

import random

x = int(input())

N = []

for i in range(10):

   N.append(random.randint(10, 50))

print(N)

second_list = []

for number in N:

   if number == x:

       second_list.append(N.index(number))

if len(second_list) == 0:

   print('не найден .')

else:

   print(second_list)

var

v,p,n,h,d: real;

begin

read(p,n,h,d);

v: =3*p*n/10/10/10*h*d*d;

end.

1+2+3-4+5-6=1

1+2+3+4/5+6-7=1

1+2+3-4+5-6+7/8=1