BÀI TẬP 2_MẢNG

             Nhập vào dãy số gồm N phần tử (N được nhập và từ bàn phím). Viết chương trình in ra màn hình tổng các số đã nhập.

CODE THAM KHẢO

program BT2;

uses crt;

var A:array[1..100] of integer;

    i,n,s: integer;

begin

    clrscr;

    write('Nhap so phan tu N = '); readln(n);

    s:=0;

    for i:=1 to n do

        begin

            write('Nhap phan tu thu ',i,': ');

            readln(A[i]); 

            S:=S+A[i];

        end;

    writeln('Tong cac so trong day so la: ',s);

    readln;

end.