Code bài này:

var n,i,max:longint;a:array[1..100000] of longint;
begin
        read(n);
        for i := 1 to n do read(a[i]);
        max:=a[1];
        for i := 1 to n do
        begin
                if max < a[i] then max:=a[i];
        end;
        writeln(max);
end.

Mô tả: trước tiên gán max cho giá trị đầu tiên của mảng sau đó chạy từ 1 -> hết mảng nếu giá trị nào lớn hơn max thì gán nó là max thì chắc chắn kết quả cuối cùng sẽ là max.

@Hômnaytôibịrob

* Mô tả thuật toán :

- Bước 1 : nhập n và dãy a1, a2, ... , an

- Bước 2 : min ← a[1], max ← a[1], csi ← 1, csa ← 1

- Bước 3 : nếu i > n thì đưa ra giá trị min, max, csi, csa

- Bước 4 : 

- Bước 4.1 : nếu a[i] < min thì min ← a[i] và csi ← i

- Bước 4.2 : nếu a[i] > max thì max ← a[i] và csa ← i

- Bước 4.3 : i ← i + 1 quay lại bước 3