`+`code

program bt;
uses crt;
var n,i,nang,nhe: integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap so ban trong lop: '); read(n);
writeln('nhap can nang cua tung nguoi: ');
for i:=1 to n do
begin
write('A[=',i,']='); read(A[i]);
end;
nang:=A[1]; nhe:=A[1];
for i:=2 to n do
begin
if nang > A[i] then nang:=A[i];
if nhe < A[i] then nhe:=A[i];
end;
writeln('can nang cua ban nang nhat lop la: ', nang);
writeln('can nang cua ban nhe nhat lop la: ',nhe);
readln;
end.

`+` chạy chương trình: ↓↓↓↓

$#FWC$

program FWC;
uses crt;
var i,n,min,max: integer;
    a: array[1..50] of integer;
begin clrscr;
write('Nhap so luong HS: '); readln(n);
for i:=1 to n do begin
write('Nhap can nang cua ban thu ',i,': '); readln(a[i]);
end;
min:=a[1]; max:=a[1];
for i:=1 to n do
begin
if min>a[i] then min:=a[i];
if max<a[i] then max:=a[i];
end;
writeln('Ban nhe nhat co can nang ',min,' kg!');
writeln('Ban nang nhat co can nang ',max,' kg!');
readln end.
//FIFAWorldCup