uses crt; type mang = array[1..100] of integer; var m : integer; a:mang; procedure nhap(var a: mang; var n : integer); var i :integer; begin readln(n); for i:=1 to n do begin write(‘Nhap a[‘,i,’]=’); readln(a[i]); end; end; function tong(var a:mang; var x : integer) : integer; var n,i : integer; begin clrscr; n:=0; for i:=1 to x do n:=n+a[i]; tong:=n; end; begin clrscr; nhap(a,m); write(‘Tong cac phan tu :’, tong(a,m)); readln end.
#include<bits/stdc++.h>
using namespace std;
void tinhtongmang(int &total,int *a, int &n)
{
for (int i = 0; i<n; i++)
{
cout << “a[” << i << “]=”;
cin >> *(a + i);
total+=a[i];
}
}
int main()
{
int n,total=0;
cin>>n;
int arr[n];
tinhtongmang(total,arr,n);
cout<<total;
//samon247
return 0;
}
uses crt;
type mang = array[1..100] of integer;
var m : integer;
a:mang;
procedure nhap(var a: mang; var n : integer);
var i :integer;
begin readln(n); for i:=1 to n do begin write(‘Nhap a[‘,i,’]=’);
readln(a[i]); end;
end;
function tong(var a:mang; var x : integer) : integer;
var n,i : integer;
begin clrscr; n:=0;
for i:=1 to x do n:=n+a[i];
tong:=n;
end;
begin clrscr;
nhap(a,m);
write(‘Tong cac phan tu :’, tong(a,m));
readln
end.