program tht;

uses crt;

var A:array[1..1000] of integer

      i,n:integer

      S,H,T:longint;

begin clrscr;

   writeln('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

       writeln('A[',i,']'); readln(A[i]);

     end;

   S:=0; H:=0; T:=0;

  for i:=1 to n do

    begin 

       S:=S+A[i];

       H:=H-A[i];

       T:=T*A[i];

     end;

   writeln('Tong mang tren la: ',S);

   writeln('Hieu mang tren la: ',H);

   writeln('Tich mang tren la: ',T);

readln;

end.

Học tốt!

#include<bits/stdc++.h>
using namespace std;
int main()
{
    int n,t=0,h=0,ti=1;
    cin>>n;
    int arr[n];
    for(int i=0;i<n;i++){
        cin>>arr[i];
        t+=arr[i];
        h-=arr[i];
        ti*=arr[i];
    }
    cout<<"Tong: "<<t<<"\nHieu: "<<h<<"\nTich: "<<ti;
    //samon247
    return 0;
}