program mang;

uses crt;

var A:array [1..100] 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:=1 to n do

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

         write('So lon nhat trong mang la: ',max);

         readln

End.

*Pascal:

program bt;

uses crt;

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

      n, i, max: integer;

begin

  clrscr;

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

  for i := 1 to n do begin

    write('Nhap 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 trong mang la:', max :3);

  readln

end.

*C/C++:

void nhap(int a[], int n)

{

    for (int i = 0; i < n; i++)

    {

        printf("Nhap vao phan tu a[%d]: ", i);

        scanf("%d", &a[i]);

    }

}

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;

}

int main()

{    

int a[1000];

    int n;

    printf("\nNhap n = ");

    scanf("%d", &n);

    nhap(a, n);

    printf("\nMax = %d", max(a, n));

    return 0;

}

Xin câu trả lời hay nhất ạ :3