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

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

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

begin

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

 a.Println;

 a.Transform(t -gt; t lt; 0 ? -t : t);

 a.Println

end.

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