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

Алина678901 Алина678901    3   11.12.2019 22:58    0

Ответы
allaberenowa68p0b0d1 allaberenowa68p0b0d1  17.08.2020 14:53

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 var a := ArrRandom(n, -10, 10);

 a.Println;

 a.Transform(p -> Sign(p));

 a.Println

end.


Решить на языке паскаль: в заданном массиве заменить все отрицательные элементы на -1, все положи
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика