НУЖНА ПОМОЩЬ В ПАСКАЛЕ Из одномерного числового массива Х длиной m, содержащего нулевые,...

Question

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

Comments

для турбо...скорее всего нужно использовать readln

---

мне именно турбо нужен

---

мы только турбо изучаем

Answer 1

Поскольку в Windows-приложениях нет понятия "чистый экран", ввод/вывод был направлен в DOS-окно.

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

uses Crt;

begin
  var x:=ArrRandom(ReadInteger('m='),-50,50);
  ClrScr; x.Println;
  var y:=x.Select(t->t<0?-t:t).ToArray; y.Println;<br>  Writeln(y.Where(t->t<>0).Aggregate(BigInteger(1),(p,q)->p*q))
end.

---