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

//PascalABC.NET v3.3 1633

var arr: array [1..13] of integer;

begin

 for var i:=1 to 13 do

   arr[i]:=random(-10,10);

 arr.PrintLn(', ');

 writeln('Минимальный элемент: '+arr.Min());

 write('Его индекс(ы): ');

 for var i:=1 to 13 do

   if arr[i]=arr.Min() then write(i+' ');

end.

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

begin

   var arr := ArrRandomInteger(13, -10, 10);

   Println(arr);

   WritelnFormat('Малый элемент: A[0] = 1', arr.IndexMin(), arr.Min());

end.