Đề 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.