viết chương trình (điểm môn toán kèm tên học sinh) cho1 lớp có < hoặc = 50 học sinh {sử dụng mạng và không dùng mảng} 2 bài nhá cacban :v (chia nhau ra làm cx đc) :>

program baitap;

ues crt;

var A:array [1..50] of string;

      B:array [1..50] of real;

      i:integer;

begin clrscr;

   for i:=1 to 50 do

     begin

        writeln('Nhap ten va diem mon toan hs thu 'i': '); readln(A[i], B[i]);

        writeln(A[i],B[i])

     end;

readln;

end.

Sử dụng mảng:

program ct;

ues crt;

var A:array [1..50] of string;

      B:array [1..50] of real;

      i:integer;

begin clrscr;

   for i:=1 to 50 do

     begin

        writeln('Nhap ten va diem mon toan hoc sinh thu 'i': '); readln(A[i], B[i]);

        writeln(A[i]:3,B[i])

     end;

readln;

end.

Ko sử dụng mảng:

program ct;

ues crt;

var D:real;

      T:string;

      i:integer;

begin clrscr;

   for i:=1 to 50 do

     begin

        writeln('Nhap ten va diem hs thu ',i,': '); readln(T,D)

        writeln(T,D);

     end;

readln;

end.

Học tốt!