viết chương trình nhập vào 1 mảng có n(n<50) phần tử cà tính tổng các phần tử trong mảng đó

Uses crt;

Var a:array[1..50] of longint;

S,n,i: integer ;

Begin

Clrscr ;

S:=0;

Writeln('nhap so phan tu'); 

Readln(n);

For i:=1 to n do 

Begin

Write('A[',i,']'); 

Readln(A[i]);

End;

For i:=1 to n do

S:=S+A[i];

Writeln('Tong cac so trong mang la',S);

Readln

End.

Program Hotboy ;

Uses crt;

Var a:array[1..50] of integer ;

S,n,i: Longint ;

Begin

Clrscr ;

S:=0;

Writeln('nhap so phan tu'); 

Readln(n);

For i:=1 to n do 

Begin

Write('A[',i,']'); 

Readln(A[i]);

End;

For i:=1 to n do

S:=S+A[i];

Writeln('Tong cac so trong mang la',S);

Readln

End.