a.
program giupban;
uses crt;
var i: integer;
A: array[1..15] of real;
tong, tbcong, tongsl: real;
begin
clrscr;
write('Cac phan tu cua day la: ');
for i:= 1 to 10 do
begin
write('a[',i,'] = '); readln(a[i]);
end;
tong:= 0
for i:= 1 to 10 do
tong := tong + a[i];
write('Tong cua mang la ', tong);
readln
end.