Program bt;
Var A:array[1..100] of integer;
n,i:integer;
Begin
For i:=1 to 10 do
Begin
Write('A[',i,']=');REadln(A[i]);
End;
For i:=1 to n do If (A[i]>=9) then Write('Cac phan tu co gia tri lon hon hoac bang 9 la: ',A[i]:5);
Readln;
End.
Đây là bài làm của mình, chúc bạn học tốt nhé !