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