Hãy điền vào các vị trí …để hoàn thiện chương trình sau
Var i,n,s: integer;
A:array[1..100] of integer;
Begin
Writeln(‘hay nhap so phan tu cua mang ‘);
Readln(n);
For i:=1 to n do
Begin
Writeln(‘hay nhap gia tri phan tu ‘,i);
Readln(…..);
For i:=1 to….do
S:=………;
Writeln(‘tong la’, S);
Readln;
End.
Readln(n);
for i:=1 to n do
S:=S+i;