из элементов массива а сформировать массив в той же размерности по правилу-все элементы с нечетными номерами разделить нацело на первый элемент

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandomReal(ReadInteger('n='),-50,50);  a.Transform(x->Trunc(100*x)/100); // Чтобы числа легче было читать))  a.Println;  var a0:=a[0];  a:=a.Select((x,i)->i.IsEven?x/a0:x).ToArray;  a.Printlnend.Примерn= 8-37.63 0.61 41.54 -46.8 34.42 23.66 13.12 7.641 0.61 -1.10390645761361 -46.8 -0.914695721498804 23.66 -0.348657985649747 7.64