uses crt; var a:array[1..10000] of real; n,i:integer; begin clrscr; write('Nhap so luong hoc sinh: '); readln(n); for i:=1 to n do begin write('Nhap diem hoc sinh thu ',i,': '); readln(a[i]); end; write('Cac diem: '); for i:=1 to n do write(a[i],' '); readln; end.
