- Chương trình 1 :

uses crt;

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

    i, n, S : integer;

begin

clrscr;

S := 0;

write('Nhap so phan tu n = '); readln(n);

write('Nhap day gom ', n ,' so = ');

for i := 1 to n do

    begin

        read(A[i]);

        S := S + A[i];

    end;

write('Tong cac phan tu = ', S);

readln

end.

- Chương trình 2 :

uses crt;

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

    i, n, M1, M2 : integer;

begin

clrscr;

write('Nhap so phan tu n = '); readln(n);

write('Nhap day gom ', n ,' so = ');

for i := 1 to n do read(A[i]);

M1 := A[1]; M2 := A[1];

for i := 2 to n do

    begin

        if A[i] > M1 then M1 := A[i];

        if A[i] < M2 then M2 := A[i];

    end;

writeln('GTLN = ', M1);

write('GTNN = ', M2);

readln

end.

Tính tổng:

uses crt;
var n,i,s: integer;
    a: array[1..1000] of integer;
begin
clrscr;
    write('Nhap do dai day: '); readln(n);
    write('Nhap day: '); for i:=1 to n do begin
        read(a[i]);
        s:=s+a[i];
    end;
    write('Tong cac phan tu trong day la: ',s);
    readln
end.

Tìm giá trị GTLN, GTNN:

uses crt;
var n,i,max,min: integer;
    a: array[1..1000] of integer;
begin
clrscr;
    write('Nhap do dai day: '); readln(n);
    write('Nhap day: '); for i:=1 to n do read(a[i]);
    max:=a[1]; min:=a[1];
    for i:=2 to n do begin
        if max<a[i] then max:=a[i];
        if min>a[i] then min:=a[i];
    end;
    write('GTLN: ',max,' | GTNN: ',min);
    readln
end.