Bài 1;
uses crt;
var n,i,s:integer;
a:array[1..100] of integer;
begin
clrscr;
write('n=');readln(n);<br />s:=0;<br />for i:=1 to n do begin write('a[',i,']=');read(a[i]);end;
for i:=1 to n do
 if i>0 then s:=s+i;
write(s);
readln
end.

Bài 2:
uses crt;
var n,s,i,d:integer;
      a:array[1..100] of integer;
begin
clrscr;
write('n=');readln(n);<br />s:=0;d:=0;<br />for i:=1 to n do begin write('a[',i,']=');read(a[i]);end;
for i:=1 to n do
 begin
  s:=s+i;
 if i<0 then d:=d+1;
 end;
writeln(s);
write(d);
readln
end.