// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var b:=ArrRandom(ReadInteger('n='),-50,50); b.Println;
var imin:=b.IndexMin;
Writeln('Номер минимального элемента: ',imin+1);
Writeln('Значение минимального элемента: ',b[imin])
end.
Пример
n= 6
14 28 15 -2 49 11
Номер минимального элемента: 4
Значение минимального элемента: -2