Сгенерировать массив и осуществить замену отрицательных на их квадраты, положительных на -1. (размерность массива задает пользователь, работа в pascal)

frolikoffgrigory frolikoffgrigory    1   14.03.2019 20:10    1

Ответы
викся1231 викся1231  25.05.2020 09:54

//PascalABC.NET 3.4.2

begin

 var ar := arrrandom(readinteger('Введите размер массива'), -10, 10).Println;

 ar := ar.Select(x -> x < 0 ? x * x : x = 0 ? x : -1);

 ar.Println;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика