Question

дан массив целых чисел, состоящий из 30 элементов. Заполните его датчиком случайных чисел. Найти: минимальный элемент массива и его порядковый номер.

Answer 1

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var a:=ArrRandom(30,-20,20); a.Println;
  Writeln('Минимум: A[',a.IndexMin+1,']=',a.Min)
end.

Тестовое решение:
8 20 2 2 -6 -11 7 20 -15 1 15 8 -1 13 -3 1 5 6 -6 -5 -2 13 -7 -7 -3 4 0 -7 10 5
Минимум: A[9]=-15