sử dụng biến mảng, viết chương trình ''tên học sinh kèm điểm toán'' của 1 lớp có học sinh '' < hoặc='' 50 người

var i:integer;

      n:real;

begin clrscr;

   for i:=1 to n do

     begin

        writeln('Nhap diem mon toan: '); readln(n);

     end;

   for i:=1 to 50 do

     writeln('Diem toan hoc sinh thu ',i,' la: 'n);

readln;

end.

program ct;

uses crt;

var i:integer;

      n:real;

begin clrscr;

   for i:=1 to n do

     begin

        writeln('Nhap diem toan: '); readln(n);

     end;

   for i:=1 to 50 do

     writeln('Diem toan hoc sinh thu ',i,' la: 'n);

readln;

end.

Học tốt!