Nhập vào 1 dãy n số nguyên A[1],A[2],...,A[n]. Đọc ra màn hình các thông tin sau: 1. Tổng số các phần tử của dãy

Program BTT;
Uses crt;
Var A: array[1..100] of longint;
    n,i,d: longint;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
                d:=d+A[i];
        End;
        Write('Tong la: ',d);
        Readln
End.

uses crt;

var a:array [1..1000] of lognint;

     n,i,kq:longint;

begin

write('N='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); 

read(a[i]);

end;

for i:=1 to n do

kq:=kq+a[i];

write('Tong la: ',kq);

readln;

end.