Question

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

Answer 1

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

Answer 2

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