uses crt;

var a:array[1..100] of extended;

max,min:extended;

i,n:longint;

begin

clrscr;

writeln('nhap so luong diem trung binh');

readln(n);
i:=1;
while i<=N do
begin
writeln('nhap a[',i,']=');
readln(a[i]);
i:=i+1;
end;
begin
max:=a[i];
for i:=1 to N do
begin
if max<a[i] then max:=a[i];
end;
end;
begin
min:=a[i];
for i:=1 to N do
begin
if min>a[i] then min:=a[i];
end;
end;
writeln('tb lon nhat ',max:5:2);
writeln('tb nho nhat',min:5:2);
readln
end.

uses crt;

var a : array[1..50] of real;

i, n, d : integer; max, min : real;

begin

clrscr;

write('nhap so hoc sinh :');readln(n);

d := 0;

for i := 1 to n do

begin

write('nhap diem hoc sinh thu ', i ,' : ');readln(a[i]);

if a[i] > 5.0 then d := d + 1;

end;

max := a[1];

for i := 2 to n do if a[i] >max then max := a[i];

min := a[1];

for i := 2 to n do if a[i] < min then min := a[i];

writeln('diem trung binh cao nhat : ', max:2:2);

writeln('diem trung binh thap nhat : ', min:2:2);

writeln('so luong diem trung binh lon hon hoac bang 5.0 : ', d);

readln

end.