Напишите программу, которая заполняет массив 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.
Объяснение: