• Khởi tạo giá trị max=a[0]
• Duyệt lần lượt các phần tử của mảng. Nếu phần tử nào có giá trị lớn max thì ta tiến hành gán giá trị đó cho max.
• Sau khi duyệt hết các phần tử của mảng thì ta tiến hành trả về giá trị của max
• Hàm max sẽ có kiểu trả về là kiểu int (hoặc kiểu long cũng được ).
• Cần có hai tham số truyền vào là: tên mảng và số lượng phần tử.

Code tham khảo cách viết hàm tìm giá trị lớn nhất trong mảng như sau

0123456789 int max(int a[], int n){    int max = a[0];    for (int i = 1; i < n; i++)        if (max < a[i])            max = a[i];    return max;} Viết chương trình tìm số nhỏ nhất trong mảng

Tương tự như trên ta cũng làm lần lượt các bước

program oken;
uses crt;
var a: array [1..100] of integer;
    i,n,max: integer;
begin
    clrscr;
    write('Nhap so phan tu cua mang: '); 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];
    writeln('So lon nhat: ',max);
    readln;
end.