Дан массив Опции

[agressor]

Дан массив содерж. 30 элементов . Найти минимальный элемент и поменять его местами с пятым элементомю


XDS отдельное Спасибо.

[volvo]

Код

const n = 30;
var
 i, min_ix, T: integer;
 a: array[1 .. n] of integer;
begin
 for i := 1 to n do
   begin
     write('a[', i, '] = '); readln(a[i]);
   end;

 min_ix := 1;
 {находим номер минимального элемента}
 for i := 2 to n do
   if a[min_ix] < a[i] then min_ix := i;

 {меняем мин. элемент с 5-ым местами}
 T := a[min_ix]; a[min_ix] := a[5]; a[5] := T;

 {печатаем массив для проверки}
 for i := 1 to n do
   write(a[i]:4);

end.