Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,s,sa,max,vtmax,min,vtmin: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0; sa:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                s:=s+A[i];
                If A[i]<0 then sa:=sa+A[i];
        End;
        max:=A[1]; vtmax:=1;
        min:=A[1]; vtmin:=1;
        For i:=1 to n do
        Begin
                If A[i]>max then
                Begin
                        max:=A[i];
                        vtmax:=i;
                End;
                If A[i]<min then
                Begin
                        min:=A[i];
                        vtmin:=i;
                End;
        End;

        Writeln('Tong phan tu: ',s);
        Writeln('Tong phan tu am: ',sa);
        Writeln('A[',vtmax,'] = ',max);
        Write('A[',vtmin,'] = ',min);
        Readln
End.

uses crt;

var n,i,t,t2,min,max,x,y:integer;

      a:array[1..100] of integer;

begin

 clrscr;

 write('nhap n:');readln(n);

 t:=0;t2:=0;min:=0;max:=0;

 for i:=1 to n do

  begin

   write('Nhap pt thu ',i,':');readln(a[i]);

    t:=t+a[i];//cau a

   if a[i]<0 then t2:=t2+a[i];//cau b

   if a[i]>=max then//cau c

     begin

      max:=a[i];

      x:=i;//x chi so cau c

     end;

 if a[i]<=min then//cau d

     begin

      min:=a[i];

      y:=i;//y chi so cau d

     end;

  end;

 writeln('tong la :',t);

 writeln('tong am la :',t2);

 writeln('so lon nhat: ',max,' tai chi so ',x);

writeln('so be nhat: ',min,' tai chi so ',y);

end.