Question

Помогите пожалуйста зачёт по инфе!!! Паскаль

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var imin := 0;

 for var i := 1 to a.High do

   if Abs(a[i]) < Abs(a[imin]) then

     imin := i;

 Println(imin + 1)

end.