Массив, Поменять местами минимальный и максимальный элемент массива Опции

[Софа]

Подскажите, как до ума довести такую задачку?
Поменять местами максимальный и минимальный элемент массива размера 10.
Задача вроде легкая, я нашла максимальный и минимальный элемент, а поменять их местами не получается

max:=a[1]; min:=a[1];
for i:=1 to n Do
begin
if max < a[i] then begin
max:=a[i]; end; end;

for i:=1 to n Do
begin
if min > a[i] then begin
min:=a[i];
end; end;

writeln (max,min);
writeln;
{for i:=1 to n Do

Vs:=max;
max:=min;
min:=Vs;} - что в этой части не так?

[volvo]

Задача вроде легкая, я нашла максимальный и минимальный элемент, а поменять их местами не получается

Чтобы их поменять местами, надо находить не сами макс./мин. элементы, а их индексы (назовем их, к примеру, i_min и i_max)... Тогда после того, как индексы найдены - делать так:

Vs:=a[i_max];
a[i_max]:=a[i_min];
a[i_min]:=Vs;