Python:

a=[int(input('a[%d]='%i)) for i in range (int(input('n=')))]
print('lon nhat:',max(a))
print('nho nhat:',min(a))

Pascal:

program Daoanhviet96;
uses crt;
var n,max,min,i:integer; a:array[1..10] of integer;
begin
clrscr;
write('n=');
readln(n);
write('a=');
for i:=1 to n do read(a[i]);
max:=a[0];
min:=a[0];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('lon nhat:',max);
writeln('nho nhat:',min);
readln;
end.

$\color{green}{\text{Cần code C/C++, C#, Java, JavaScript thì nói để mình thêm}}$

$\color{red}{\text{#Daoanhviet96}}$

uses crt;
var i,n,max,min:longint;
   A:array[1..100] of longint;
begin
clrscr;
write('Nhap n: '); readln(n);
        for i:=1 to n do
                begin
                        write('A[',i,']=');
                        readln(A[i]);
                end;
        max:=A[1];
        min:=A[1];
        for i:=1 to n do
        begin
        if max<A[i] then max:=A[i];
        if min>A[i] then min:=A[i];
        end;
        writeln('So lon nhat: ',max);
        writeln('So nho nhat: ',min);
        readln
end.