Дан одномерный массив Е(10) элементы которого вводятся с клавиатуры. Подсчитать сумму максимального и минимального элемента в массиве Е.

const
  nmax=100;
type
  arr=array[1..nmax] of integer;
var
  e:arr;
  i,n,imin,imax:integer;
begin
  repeat
    write('Razmer massiva, ne bolee ',nmax,': ');
    readln(n);
  until n in [1..nmax];
  for i:=1 to n do
    begin
      write('a[',i,']=');
      read(e[i]);
    end;
  imin:=1;
  imax:=1;
  for i:=2 to n do
    begin
      if e[i]>e[imax] then
        imax:=i;
      if e[i]<e[imin] then
        imin:=i;
    end;
  writeln('Massiv E:');
  for i:=1 to n do
    write(e[i]:4);
  writeln;
  writeln('Summa max+min:',e[imax]+e[imin]);
end.

const
  n=10;
type
  arr=array[1..n] of integer;
var
  e:arr;
  i,imin,imax:integer;
begin
  {Vvod elementov massiva}
  writeln('Vvedite elementy massiva:');
  for i:=1 to n do
    begin
      write('a[',i,']=');
      read(e[i]);
    end;
  {Poisk min i max}
  imin:=1;{pust 1 element minimalniy}
  imax:=1;{pust 1 element maximalniy}
  for i:=2 to n do{nachinaya so 2 sravnim elementy ot 2 do n s kandidatom}
    begin
      if e[i]>e[imax] then{esli kandidat v maksimum okazalsa menshe tekushego}
        imax:=i;{schitaem tekushii el. maksimumom}
      if e[i]<e[imin] then
        imin:=i;
    end;
  {Vyvod massiva}
  writeln('Massiv E:');
  for i:=1 to n do
    write(e[i]:4);
  writeln;
  {Vyvod summy}
  writeln('Summa max+min:',e[imax]+e[imin]);
end.