#mình gửi code pascal và c++ ạ

#code pascal 

program cau1;
uses crt;
var i,n,s :integer;
    a: array[1..1001] of integer;
begin
clrscr;
write('nhap so phan tu : ');
readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln('Tong cac phan tu cua mang la : ',s);
readln;
end.

#code c++

#include <bits/stdc++.h>
using namespace std;
int a[1001];
int main()
{
int n,i,s=0;
cin>>n;
for(i=1;i<=n;i++)

   cin>>a[i];

for(i=1;i<=n;i++)
    s=s+a[i];
cout<<s;
return 0;
    }
#nhớ vote cho mình 5 sao và tym , hay nhất nhá 

var

    a: array[1..300] of integer;

i,n,t : integer;

begin

clrscr;

write('nhap so phan tu : ');

readln(n);

for i:=1 to n do

begin

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

readln(a[i]);

end;

T:=0;

for i:=1 to n do

T:=T+a[i];

writeln('Tong : ',t);

readln;

end.

end.