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.
