Đề thi học kì II, Giúp m với Viết chương trình nhập vào một mảng gồm 41 phần tử và in ra màn hình điểm tin của 41 học sinh lớp 8C5

2 câu trả lời

program ct;

uses crt;

var A:array[1..41] of integer;

      i:integer;

begin clrscr;

   for i:=1 to 41 do

     begin

        write('Nhap diem cua hoc sinh thu ',i,': '); readln(A[i]);

     end;

   for i:=1 to 41 do

     begin

        write('Diem cua hoc sinh thu ',i,' la: ',A[i]);

     end;

readln;

end.

Học tốt!

program dt;

uses crt;

var i: integer;

      a:array[1..41] of integer;

begin

clrscr;

for i:=1 to 41 do

begin

        readln(a[i]);

end;

for i:=1 to 41 do

begin

        write(a[i]:3);

end;

readln;

end.