Question

массив из 10 элементов заполнить случайными числами до 10. найти на каком месте стоит число 7​

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrRandom(10, 1, 10);

 a.Println;

 if a.Any(p -> p = 7) then

 begin

   Write('Число 7 стоит на местах с номерами ');

   for var i := 0 to a.High do

     if a[i] = 7 then

       Print(i+1);

 end

 else

   Write('В массиве нет элементов, равных 7')

end.