Отыскать сумму максимального и малого из 12 введенных чисел. Вывести сами

//PascalABS.net

const n= 12;
var a:array[1..n]of integer;
    i,min,max,nmin,nmax:integer;
begin
  min:=99999;
  max:=0;
 
  for i:=1 to n do begin
    readln(a[i]);

    if a[i]gt;max then begin max:=a[i];
      nmax:=i;
    end;   
    if a[i]lt;min  then begin min:=a[i];
      nmin:=i;
    end;
  end;
 
  writeln ('Сумма max+min ',max+min);
  writeln ('Наибольшее ',max,' индекс', nmax);
  writeln ('Ммнимальное ',min,' индекс', nmin);
end.

C++

includelt;iostreamgt;
using namespace std;

int main()

   int a[12],max,min,k=1,l=1;
   for (i=1;ilt;=12;i++)
   cin gt;gt; a[i];
   max = a[1];
   min = max;
   for (i=2;ilt;=12;i++)
   
      if (a[i] lt;= min) min = a[i]; k = i; 
      if (a[i] gt;= max)  max = a[i]; l = i;
   
cout lt;lt; "sum = " lt;lt; min +max lt;lt; endl;
cout lt;lt; "max =" lt;lt; max lt;lt; "   "lt;lt; l lt;lt; endl;
cout lt;lt; "min =" lt;lt; min lt;lt; "   "lt;lt; k lt;lt; endl;