1.

uses crt;
var A:array[1..100] of longint;
n,i,max,min: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);
write('So nho nhat: ',min);
readln
end.

2.

uses crt;
var A:array[1..100] of real;
n,i,t,t1,t2,t3:longint;
begin
clrscr;
write('Nhap so luong hoc sinh: '); readln(n);
for i:=1 to n do 
begin
write('Nhap diem cua hoc sinh',i,' : '); readln(A[i]);
end;
for i:=1 to n do
begin
if A[i]>8 then t:=t+1;
if (A[i]<=7.9)  and (A[i]>6.5) then t1:=t1+1;
if (A[i]>5) and (A[i]<6.5) then t2:=t2+1;
if A[i]<5  then t3:=t3+1;
end;
writeln('So ban dat hoc sinh gioi: ',t);
writeln('So ban dat hoc sinh kha: ',t1);
writeln('So ban dat hoc sinh TB: ',t2);
write('So ban dat hoc sinh kem: ',t3);
readln
end.