Решить на языке паскаль: в заданном массиве заменить - вопрос №10357155 от 7rus790 28.06.2020 15:02

Question

Информатика: Решить на языке паскаль: в заданном массиве заменить все отрицательные элементы на -1 , все положительные - на 1 , нули оставить без изменений.

7rus790 · Answer

===== PascalABC.NET =====begin  var n := ReadInteger;  var a := ArrRandom(n, -10, 10);  a.Println;  a.Transform(p - Sign(p));  a.Printlnend....

Решить на языке паскаль: в заданном массиве заменить все отрицательные элементы на "-1", все положительные - на "1", нули оставить без изменений.

Решить на языке паскаль:
в заданном массиве заменить все отрицательные элементы на "-1", все положительные - на "1", нули оставить без изменений.