program kaito;
uses crt;
var n, i, d, s: integer;
      a: array[1..150] of integer;
begin
    clrscr;
    write('Nhap so luong phan tu n: '); readln(n);
    for i:=1 to n do 
    begin
        write('Nhap a[',i,'] = '); readln(a[i]);
        if (a[i]>0) then
        begin
            inc(d); inc(s,a[i]);
        end;
    end;
    writeln('Day co ',d,' so duong');
    writeln('Tong cua cac so duong la: ',s);
    for i:=1 to n do
    begin
        if(a[i]<0) then writeln('So am dau tien la: a[',i,'] = ',a[i]);
        break;
    end;
    readln
end.

uses crt;
var a:array[1..100]of longint;
minam,s,d,n,i:longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if (a[i]>0) then
begin
inc(d); inc(s,a[i]);
end;
end;
writeln('co ',d,' phan tu am');
writeln('tong duong la: ',s);
for i:=1 to n do
begin
if(a[i]<0) then writeln('So am dau tien la: a[',i,'] = ',a[i]);
break;
end;
readln
end.

{Thank mod nha }