program Tin_hoc;
uses crt;
var n,i,max:integer;
a:array[1..100000] of integer;
begin
clrscr;
write('Nhap n: ');readln(n);
writeln('Nhap ',n,' phan tu cua day:');
for i:= 1 to n do readln(a[i]);
max:=a[1];
for i:= 1 to n do if a[i] > max then max:=a[i];
writeln('Gia tri lon nhat cua day A la: ',max);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,ln;
int main()
{
cin>>n;
cin>>x;
ln=x;
for (i=1; i<n; i++)
{
cin>>x;
ln=max(ln,x);
}
cout<<ln;
return 0;
}