program bt;
uses crt;
var a: array[1..10] of integer;
i: byte;
begin
clrscr;
for i := 1 to 10 do begin
write('Nhap a[',i,']='); readln(a[i]);
end;
write('Cac so lon hon hoac bang 9 trong mang la:');
for i := 1 to 10 do if a[i] >= 9 then write(a[i]:3);
readln
end.
Xin câu trả lời hay nhất ạ :3