program phuongt; uses crt; var A: array[1..100] of integer; i, n: integer; begin clrscr; write('Nhap so hoc sinh: '); readln(n); for i:=1 to n do begin write('Diem cua ban thu ', i, ': '); readln(A[i]); end; write('Cac ban duoc diem 10 la: '); for i:=1 to n do if A[i]=10 then write(A[i]:3); readln end.
