Найти номера минимального и максимального элементов массива, в Паскале

Var a:array[1 ... 10000] of integer; i, n, min, max:integer; beginwriteln ('введите кол-во элементов массива') ; readln (n) ; for i:=1 to n do begin a[i]:=random (100) - 40; write (a[i],' ') ; end; min:=1000000; max:=-1000000; for i:=1 to n dobeginif a[i]>max then max:=a[i]; if a[i]Комментировать