pascal. массив. перестановка

[ROMA2PVT]

<<offtop>>
нехотю.

[vykker]

[vykker]

вроде как то так

спасибо Скандербег 'у

var
  A:array [1..100] of integer;
  max, min, n, i, maxInd, minInd :integer;

begin
  write('n=');
  readln (n);

  for i := 1 to n do begin
    read(a[i]);
    write(a[i],' ');
  end;

  maxInd := 0; 
  minInd := 0;
  max := a[1];
  min := a[1];
  for i:=1 to n do begin
   if a[i] > max then begin
     max := a[i];
     maxInd := I;
   end;

   if a[i] < min then begin
     min := a[i];
     minInd := I
   end;
  end;

  writeln; 
  if maxInd > minInd then //индекс какого экстремального значения больше, тот и выводится на экран
    writeln('index (max) = ', maxInd) 
  else
    writeln('index (min) = ', minInd);
end.