Cách làm :
1, Vào trong chương trình logo
2, Dùng các câu lệch dưới đây :
Var a: array[1..100] of integer;
i,n,s:Integer;
BEGIN
s:=0;
Write['Nhap so phan tu:'];
Readln(n);
For i:=1 to n do
Begin
Write['a[',i,']='];
Readln[a[i]];
s:=s+a[i];
End;
Writeln['Mang vua nhap la:'];
For i:=1 to n do
Write[a[i], ' '];
writeln;
writeln['Tong cac so trong mang la',s)];
Readln;
END. (để kết thúc)
* Khi muốn xóa, bấm : cs