Viết chương trình nhập vào mảng 1 chiều gồm 10 số nguyên . Tính và hiển thị ra màn hình tổng các phần tử mảng

Program BTT;
Uses crt;
Var A:array[1..10] of longint;
Begin
        Clrscr;
        For i:=1 to 10 do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        s:=0;
        For i:=1 to 10 do
                s:=s+A[i];
        Write('Tong la: ',s);
        Readln
End.

#include <bits/stdc++.h>

using namespace std;

int main()
{
  int a[11];
  cout<<"nhap mang a";
  for(int i=1;i<=10;i=i+1)
    cin>>a[i];
  int s=(0);
   for(int i=1;i<=10;i=i+1)
  s=s+a[i];
  cout<<"tong la"<<s;
        return 0;
}