program manga;

uses crt;

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

n,i,max:integer;

{nhap mang}

procedure nhapdl;

var i:integer;

begin

write('nhap so phan tu cua mang: ');readln(n);

for i:=1 to n do

begin

write('a[],i,']= ');readln(a[i]);

end;

end;

{in mang theo chieu nguoc lai}

procedure indl;

var i:integer;

begin

for i:=n downto 1 do write(a[i]:4);

writeln;

end;

(tim max)

procedure timmax;

var i:integer;

begin

max:=a[1];

for i:= 2 to n do 

if a[i,j]> max then

max:=a[i,j];

writeln('Gia tri max la: ',max);

end;

begin

clrscr;

nhapdl;

indl;

timmax;

readln

end.

Nếu có sai xót gì xin bạn bỏ qua nha.

Chương trình mình chưa chạy thử 

Nếu bạn chạy không được có thể hỏi mình

Chúc bạn học tốt.

#include <bits/stdc++.h>
using namespace std;
#define cls system("cls")
int nhapmang(int n,int arr[])
{
    for(int i=0;i<n;i++){
        cin>>arr[i];
    }
}
int nguocmang(int n,int arr[])
{
    for(int i=n-1;i>=0;i--){
        cout<<arr[i]<<" ";
    }
}
int maxmang(int n,int arr[])
{
    int total=0;
    for(int i=0;i<n;i++){
        if(total<arr[i]){
            total=arr[i];
        }
    }
    return total;
}
int main(){
    int n;
    cin>>n;
    if(n>500){
        cls;
        return main();
    }
    int arr[n];
    nhapmang(n,arr);
    nguocmang(n,arr);
    cout<<"\nMax cua mang la: "<<maxmang(n,arr);
    //samon247
    return 0;
}