Program qtruong; Uses crt; Var n, i: integer; s: real; b:array[1..1000000] of longint; Begin Clrscr; Write('Nhap n = '); readln(n); For i:=1 to n do Begin Write('b[',i,']='); readln(b[i]); end; s:=0; For i:=1 to n do s:=s+b[i]; Writeln('Tong day so do la: ',s:10:10); readln end.