А Вы введите номера Im и Ih и чуть видоизмените цикл. Вместо
Цитата:
if a[i]>m then m:=a[i];
if a[i]<h then h:=a[i];
|
следует написать:
Код:
if a[i]>m then
begin
m:=a[i];
Im:=i;
end;
if a[i]<h then
begin
h:=a[i];
Ih:=i;
end;
Вот Ва и зафиксировали как величины, так и номера максимального и минимального элементов. Теперь осталось переставить a[Im] и a[Ih].