Дан массив. Определить: индекс минимального и индекс максимального элементов.

program BP_Sasde;Uses crt;Var a:array[1..20] Of integer;imax,imin,i:integer;beginClrscr;imin:=20;imax:=0;for i:=1 to 20 do begina[i]:=random(1,20);if a[i]>imax then imax:=a[i] else imin:=a[i];writeln(a[i]);end;writeln('максимум = ',imax,' а минимум = ',imin);end.