uses crt;      {khai báo tên thư viện(crt)}

var a: array[1..100] of integer;               {khai báo mảng}

n,i,max: integer;                           {khai báo các biến cần dùng}

begin

clrscr;             {xóa màn hình}

write ('nhap so phan tu: ');  {in ra màn hình "nhap so phan tu" để yêu cầu nhập số phần tử}

readln (n);   {đọc giá trị vừa nhập vào biến n}

for i:=1 to n do       {cho i chạy từ 1 đến n (n vừa nhập)}

begin     {câu lệnh ghép nên phải dùng begin...end;}

write ('nhap a[i]: ');  {in ra màn hình "nhap a[1 hay 2 hay 3 hay 4....phụ thuộc vào giá trị i]" để yêu cầu nhập giá trị thứ i(i tăng lên sau 1 lần lặp)}

readln (a[i]);  {đọc giá trị vừa nhập vào a[i]}

if a[i]>max then max:=a[i]; {nếu a[i]>max thì max:=a[i]}

end; {kết thúc câu lệnh ghép}

writeln ('so lon nhat: ',max);      {in kết quả của biến max ra màn hình}

readln;      {dừng màn hình để xem kết quả}

end.

program tim_max;

uses crt;

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

     n,i,max:integer;

begin

       clrscr;

       write('Nhap n: ');  readln(n);

       for i:=1 to n do

              begin

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

              end;

       max:=A[1];

       for i:=2 to n do

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

       write(max);

       readln;

end.

Giải thích:

ban đầu là nhập dãy

sau đó cho biến max=A[1];

cho i chạy từ 2 đến n, nếu A[i]>max thì max gán bằng A[i].

Như thế ta sẽ tìm được số lớn nhất từ 1 đến n.