Dễ mà nhưng cách tui hơi dài
Đáp án :
Var
a:array[1..100] of integer;
N,i,diemtin:interger;
Begin
Writeln('Nhap so hoc sinh ');
Readln(n);
For i:=1 to n do
Begin
Writeln(' Nhập điểm học sinh thứ ',i);
Readln(a[i]);
End;
For i:=1 to n do
Writeln(' Điểm học sinh ',i,' la :', a[i]);
Readln;
End.
Cơ bản là vậy có thể trình bày theo cách khác