Bài 1: Tìm lớn nhất

program tim_max;

uses crt;

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

      n,i,max:integer;

begin

       clrscr;

       write('Nhap so luong phan tu: ');  readln(n);

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(A[i]);

              end;

       max:=A[1];

       for i:=2 to n do

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

       write('So lon nhat la: ',max);

       readln;

end.

Bài 2: Tổng thỏa mãn

program tinh_tong;

uses crt;

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

      n,i,t:integer;

begin

       clrscr;

       write('Nhap so luong phan tu: ');  readln(n);

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(A[i]);

              end;

       t:=0;

       for i:=1 to n p

              if A[i] mod 3=0 then t:=t+A[i];

       write('Tong cac so chia het cho 3 la: ',t);

       readln;

end.