Составьте программу которая заполняет массива а 1..10 случайными целыми числами в...

Question

Составьте программу которая заполняет массива а 1..10 случайными целыми числами в диапазоне от -10 до 10 затем преобразовывает массив заменяя все отрицательные элементы их модулями

Answer 1

PascalABC.NET 3.4.2, сборка 1880 от 18.11.2018

Внимание! Если программа не работает, обновите версию!

begin

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

 a.Println;

 a.Transform(t -> t < 0 ? -t : t);

 a.Println

end.

Answer 2

javascript:a = []; for (let сч = 0; сч < 10; сч++) a.push(Math.floor(Math.random() * 21 - 10)); a.forEach(function (зн, сч) { if (зн < 0) a[сч] = -a[сч]; });