Question

Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и найти в нем максимальный и минимальный элементы и их номера. Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 максимальный a[4]=10 минимальный a[8]=-10

Answer 1

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

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

begin

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

 a.Println;

 var i := a.IndexMax;

 Writeln('максимальный a[', i + 1, ']=', a[i]);

 i := a.IndexMin;

 Writeln('минимальный a[', i + 1, ']=', a[i])

end.

-2 0 -3 0 3 -2 1 -9 -9 -2

максимальный a[5]=3

минимальный a[8]=-9