Question

НУЖНА ПОМОЩЬ В ПАСКАЛЕ Из одномерного числового массива Х длиной m, содержащего нулевые, положительные и отрицательные элементы, сформировать новый массив У, заменив в Х все отрицательные элементы их модулями. Найти произведение ненулевых элементов полученного массива У. Вывести на чистый экран оба массива и полученное произведение.

Answer 1

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

begin
  var x:=ArrRandom(ReadInteger('Введите размер массива->'),-5,5); x.Println;
  var y:=x.Select(t->t<0?abs(t):t); y.Println;
  Println('Произведение:',x.Where(t->t<>0).Aggregate((a,b)->a*b));
end.

Пример:
Введите размер массива-> 10
1 2 -1 2 4 4 1 1 -3 2
1 2 1 2 4 4 1 1 3 2
Произведение: 384