Viết chương trình tính tổng, hiệu, tích của mảng gồm n phần tử, n nhập từ bàn phím

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!