DELPHI.поменять индексы местами в одномерном массиве

[dozimetrist]

люди добрые помогите пожалуйста. есть код проги

uses
  SysUtils;

VAR  A:array [1..100] of real;
  i,n:integer;
  max:real;
  imax:integer;
  min:real;
  imin:integer;
  temp:Integer;

begin
WRITE ('n='); READLN(n);
FOR i:=1 to n do
 begin
    WRITE ('A[' ,i, ']='); READLN(A[i]);
 end;
 WRITELN ('massiv A:');
  FOR i:=1 to n do
   WRITE (A[i]:3:0);
   WRITELN;
   max:=A[1];
   imax:=1;
   FOR i:=2 to n do
    if A[i]>max  then
     begin
      max:=A[i];
      imax:=i;
    end;
   WRITELN ('max=', max:2:0, 'imax=',imax);
   For i := imax + 1 to n do
    if A[i] = max then
      WRITE (',',i+1);
      FOR i:=1 to n do
   WRITE (A[i]:3:0);
   WRITELN;
   min:=A[1];
   imin:=1;
  FOR i:=2 to n do
   if A[i]<min then
    begin
      min:=A[i];
      imin:=i;
    end;
   WRITELN ('min=', min:2:0, 'imin=',imin);
    for i := imin + 1 to n do
      if A[i] = min then
       WRITE (',',i);
 a[imin]:=max;
 a[imax]:=min;
 0
 writeln ('max=',min:4:0, 'min=',max:4:0);
{ TODO -oUser -cConsole Main : Insert code here }
READLN;
end.

нужно поменять индексы максимального и минимального элемента

[Stilet]

i:=imin;
imin:=imax;
imax:=i;

Подходит?

[dozimetrist]

это не подходит. нужно меня индексы в массиве.

[Stilet]

нужно меня индексы в массиве.

Тебя не получится )
Они там скажем так константны, их изменение не предусмотренно архитектурой ЭВМ в принципе. Я не шучу.

[dozimetrist]

Stilet, а не подскажешь что можно сделать в данной ситуации?

[Arigato]

Сообщение от Stilet

Они там скажем так константны, их изменение не предусмотренно архитектурой ЭВМ в принципе.

Оно не предусмотрено языком программирования. Некоторых ЯП позволяют работать как со значениями, так и с индексами.

[dozimetrist]

Т.е. то что от меня требует преподаватель в конкретном случае не получится сделать. я правильно понимаю?

[Аватар]

Думаю не правильно понято требование преподавателя, скорее местами поменять элементы. В противном случае сочувствую ученикам такого препода

[Stilet]

Некоторых ЯП позволяют работать как со значениями, так и с индексами.

Ты имеешь ввиду ассоциативные массивы?
Ну в данном случае это не они

[Arigato]

В общем случае массив - это набор пар "индекс=значение". Ассоциативный массив можно и в Делфи реализовать, в том же TStringList'е можно замутить.