Question

Составить программу, формирующую одномерный массив, состоящий из N вещественных элементов. Преобразовать массив таким образом, чтобы сначала располагались все отрицательные элементы, а потом – все положительные (элементы, равные 0, считать положительными). Найти индекс максимального элемента массива. Вычислить среднее арифметическое всех нечетных по порядку элементов массива.

Answer 1

// PascalABC.NET 3.2, сборка 1492 от 03.07.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a:=(a.Where(x->x<0)+a.Where(x->x>=0)).ToArray; a.Println;
  Writeln('Номер максимального элемента: ',a.IndexMax+1);
  Writeln('Среднее арифметическое нечетных по порядку: ',
      a.Where((x,i)->i.IsEven).Average)
end.

Пример
n= 15
18 -24 31 -4 -13 -45 24 -25 34 -42 -6 36 -50 40 -15
-24 -4 -13 -45 -25 -42 -6 -50 -15 18 31 24 34 36 40
Номер максимального элемента: 15
Среднее арифметическое нечетных по порядку: 2.75