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.
2 câu trả lời
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(A[i]);
End;
For i := 1 to n do
S := S + A[i];
Writeln('Tong la ', S);
Readln;
End.