Составьте программу, меняющую местами максимальный и минимальный элемент массива.
Составьте программу, меняющую местами максимальный и минимальный элемент массива.

const n = 10;var a: array [1..n] of real;i, imin, imax: integer;buf:real;begin for i:=1 to n do a[i]:= random*(50); writeln('Начальный массив'); for i:=1 to n do write(a[i]:0:2,' '); imin:=1; imax:=1; for i:=1 to n do begin if a[imin] > a[i] then imin:=i; if a[imax] < a[i] then imax:=i; end; writeln; buf:=a[imin]; a[imin]:=a[imax]; a[imax]:=buf; writeln('Изменённый массив'); for i:=1 to n do write(a[i]:0:2,' ');end.