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

Readln(n);

for i:=1 to n do

S:=S+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.

Câu hỏi trong lớp Xem thêm