* Ý tưởng:

+ Khởi tạo giá trị MAX = a₁.

+ Lần lượt với i = 2 đến N, so sánh số a_i với MAX, nếu a_i > MAX thì MAX = a_i

*  Xác định bài toán:

+  Input: N, a₁, a₂, ..., a_N

+  Output: Phần tử có giá trị lớn nhất.

*  Xây dựng thuật toán:

Bước 1: Nhập N và dãy a₁, a₂, ..., a_N.

Bước 2: Max <-- a₁, i <-- 2;

Bước 3: Nếu i > N thì đưa ra giá trị Max rồi kết thúc;

Bước 4: Nếu a_i > Max thì Max <-- a_i;

Bước 5: i <-- i + 1 rồi quay lại Bước 3;

Thuật toán:

B1: Nhập vào dãy số

B2: Max ← a[1]

B3: Nếu i>n thì chuyển đến B5

B4: i ← i+1; `->` Nếu a[i]<max thì max←a[i];

B5: Xuất kết quả và kết thúc

Chương trình: 

uses crt;

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

i,n,max: integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write ('nhap phan tu thu ',i,': ');  readln (a[i]);

end;

max:=a[1];

for i:=2 to n do if max<a[i] then max:=a[i];

writeln ('Max = ',max);

readln;

end.

$#Trumtinhoc$