Предмет: Информатика,
автор: Kirienachernova
Помогите решить задачу на языке ПАСКАЛЬ:
В заданном массиве заменить все отрицательные элементы на "-1", все положительные - на "1", нули оставить без изменений.
Ответы
Автор ответа:
1
===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ArrRandom(n, -10, 10);
a.Println;
a.Transform(p -> Sign(p));
a.Println
end.
Приложения:
Интересные вопросы
Предмет: Алгебра,
автор: hukdaria
Предмет: Алгебра,
автор: fedorsofia700
Предмет: Английский язык,
автор: veretennikovnazar6
Предмет: Математика,
автор: DavidAnt