Question

В одномерном массиве размерности n найти количество и номера элементов, равных заданному P

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -9, 9);

 a.Println;

 var p := ReadInteger('p =');

 var i := a.Indices(t -> t = p);

 Println('Найдено элементов:', i.Count);

 Print('Номера элементов:');

 i.Select(t -> t + 1).Print

end.