Câu 2 :

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.

2.

#include<bits/stdc++.h>
using namespace std;
int tongmang(int *a, int &n)
{
    int total=0;
    for (int i = 0; i<n; i++)
    {
        cout << "a[" << i << "]=";
        cin >> *(a + i);
    }
    for(int i=0;i<n;i++){
        total+=a[i];
    }
    return total;
}
int main()
{
    int n;
    cin>>n;
    int arr[n];
    cout<<tongmang(arr,n);
    //samon247
    return 0;
}

3.

#include<bits/stdc++.h>
using namespace std;
int luythua(int a,int b)
{
    int total=1;
    for(int i=0;i<b;i++){
        total*=a;
    }
    return total;
}
int main()
{
    int a,b,m,n,T=0;
    cin>>a>>b>>m>>n;
    T=luythua(a,m)+luythua(b,n);
    cout<<T;
    //samon247
    return 0;
}