Заполнить массив из 10 частей случайными числами в интервале от [-10..10]

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

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

begin

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

 a.Println;

 var i := a.IndexMin;

 Writeln('Min a[', i + 1, ']=', a[i]);

 i := a.IndexMax;

 Writeln('Max a[', i + 1, ']=', a[i])

end.

-6 -10 9 0 -9 2 10 -7 1 3

Min a[2]=-10

Max a[7]=10

javascript:var массив = [], макс_зн, макс_ном, мин_зн, мин_ном; for (let сч = 0; сч lt; 10; сч++) массив.push((function (от, до) return Math.round(от - 0.5 + Math.random() * (до - от + 1)); )(-10, 10)); массив.forEach(function (зн, ном) if (ном == 0) макс_зн = зн; макс_ном = 0; мин_зн = зн; мин_ном = 0; else if (зн gt; макс_зн) макс_зн = зн; макс_ном = ном; else if (зн lt; мин_зн) мин_зн = зн; мин_ном = ном; ); alert(макс_зн + " (" + макс_ном + "); " + мин_зн + " (" + мин_ном + ")");