//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var arr := ArrRandomInteger(30, -500, 500);
Println(arr);
arr.Sort;
WritelnFormat('Минимальный элемент: B[{0}] = {1}', arr.IndexMin(), arr.Min());
end.
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var arr := ArrRandomInteger(30, -500, 500);
Println(arr);
arr.Sort;
Println(arr);
WritelnFormat('Минимальный элемент: B[{0}] = {1}', arr.IndexMin(), arr.Min());
end.