{Файл: prog52.pas
Задача:
  Дан линейный массив из N целых чисел (N=10). Найти наибольший, и наименьший 
  элементы массива, обменять их местами.
Автор:
  
Дата:
  28,10,2015}
  
const
  N = 10;
  
var
  a          : array[1..N] of integer;
  i          :integer;
  imin, imax :integer;
  d          :integer;

begin

  {Заполнение массива a случайными числами}
  randomize;
  for i:=1 to N do
    a[i]:=random(100);
    
  {Вывод массива а на экран}
  writeln('Исходный массив');
  for i:=1 to N do
    write(a[i]:6);
  writeln;
  
  {Нахождение индексов наибольшего и наименьшего элементов массива}
  imin:=1;
  imax:=1;
  for i:=2 to N do
  begin
    if a[i] < a[imin] then
      imin:=i;
      
    if a[i] > a[imax] then
      imax:=i;
  end;
  
  {Вывод ответа}
  writeln('Наименьший элемент a[',imin,']=',a[imin]);
  writeln('Наибольший элемент а[',imax,']=',a[imax]);
  
  {Обмен наименьшего и наибольшего элементов}
  d:=a[imin];
  a[imin]:=a[imax];
  a[imax]:=d;
  
  {Вывод массива а на экран}
  writeln('Полученный массив');
  for i:=1 to N do
    write(a[i]:6);
  writeln;
end.