Chương trình 1:

program ct;

uses crt;

var i,n,S:integer;

      A:array[1..100] of integer;

begin

clrscr;

  write('nhap n:=');readln(n);

     for i:=1 to n do

begin

  write('nhap mang A[',i,']:=');readln(A[i]);

end;

  S:=0;

    for i:=1 to n do S:=S+A[i];

        writeln('tong cua day so la:',S);

readln

end.

chương trình 2:

program ct;

uses crt;

var i,n,T:integer;

      A:array[1..100] of integer;

begin

clrscr;

  write('nhap n:=');readln(n);

     for i:=1 to n do

begin

  write('nhap mang A[',i,']:=');readln(A[i]);

end;

  T:=1;

    for i:=1 to n do T:=T*A[i];

        writeln('tich cua day so la:',T);

readln

end.

chương trình 3:

program ct;

uses crt;

var n:integer;

      x:real;

const sai_so=0.005;

begin

clrscr;

  x:=1;  n:=1;

     while x>=sai_so do

  begin

      x:=1/n;

      n:=n+1;

  end;

writeln('so n be nhat de 1/n<', sai_so:5:4 ,' la ',n-1);

readln

end.

nếu không hiểu inb hỏi lại :))

program  bt;

uses crt;

var a:array[1..100] of byte;

      tong, n,i : integer;

begin 

write('hay nhap so phan tu cua mang');

readln(n);

for i:= 1 to n do begin 

                write('so phan tu thu ',i);

                readln(a[i]);

 end;

tong:=0;

tong:=tong+a[i]

write('tong cac phan tu trong mang la',tong);

tich:=1;

tich:=tich*a[i]

write('tich cac phan tu trong mang la',tich);

for i:=1 to n do if 1/a[i] < 0.005 write ('a[i]');

end.