Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

ПРОГРАММИРОВАНИЕ ОБРАБОТКИ ОДНОМЕРНЫХ МАССИВОВ
Даны действительные числа a1, a2, … ,an. Поменять местами наибольший и наименьший элементы.
на Free Pascal

Ответ оставил Гость

const
  n=15;
var
  a: array[1..n] of real;
  i,imax,imin: byte;
  t: real;
begin
  Writeln(Введите ,n, элементов массива);
  imax:=1; imin:=1;
  for i:=1 to n do begin
    Read(a[i]);
    if a[i]    else
      if a[i]>a[imax] then imax:=i
    end;
  t:=a[imin]; a[imin]:=a[imax]; a[imax]:=t;
  for i:=1 to n do Write(a[i], );
end.