$\text{Câu 2:}$
program Cau_2;
uses crt;
var A:array [1..500] of integer;
n,i: integer;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
end;
write('2) Cac phan tu am: ');
for i:=1 to n do
if A[i]<0 then write(A[i],' ');
readln
End.
$\text{Câu 3:}$
program Cau_3;
uses crt;
var A:array [1..500] of integer;
n,i: integer;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
end;
write('3) Cac phan tu le: ');
for i:=1 to n do
if A[i] mod 2<>0 then write(A[i],' ');
readln
End.
$\text{Câu 4:}$
program Cau_4;
uses crt;
var A:array [1..500] of integer;
n,i,max,min: integer;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
end;
max:=A[1]; min:=A[1];
if max<A[i] then max:=A[i];
if min>A[i] then min:=A[i];
writeln('4) Phan tu lon nhat: ',max);
writeln(' Phan tu nho nhat: ',min);
readln
End.
$\text{Câu 5:}$
program Cau_5;
uses crt;
var A:array [1..500] of integer;
n,i,T: integer;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
end;
for i:=1 to n do T:=T+A[i];
write('5) Tong = ',T);
readln
End.
$\text{Câu 6:}$
program Cau_6;
uses crt;
var A:array [1..500] of integer;
n,i,T: integer;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
end;
for i:=1 to n do T:=T+A[i];
write('6) Trung binh cua ',n,' so nguyen = ',T/n);
readln
End.
