Điểm kiểm tra môn tin học của n học sinh lớp 8A được khai báo như là mảng a (mảng a gồm 50 phần tử kiểu số thực). để in ra màn hình điểm của n học sinh trong lớp có 2 cách:
1. In ra một dãy điểm theo hàng, khi hết độ rộng màn hình sẽ tự động xuống hàng
2.In ra thành cột điểm, mỗi điểm in trên 1 dòng
Em hãy viết hai đoạn chương trình tương ứng với hai cách thực hiện nói trên
*Cách 1:
uses crt;
var a:array[1..50] of real;
n,i:longint;
begin
clrscr;
write(‘Nhap so luong hoc sinh: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap diem tin hoc sinh thu ‘,i,’: ‘); read(a[i]);
end;
write(‘Day diem theo hang: ‘);
for i:=1 to n do write(a[i]:0:1,’ ‘);
readln
end.
*Cách 2:
uses crt;
var a:array[1..50] of real;
n,i:longint;
begin
clrscr;
write(‘Nhap so luong hoc sinh: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap diem tin hoc sinh thu ‘,i,’: ‘); read(a[i]);
end;
writeln(‘Day diem theo cot: ‘);
for i:=1 to n do writeln(a[i]:0:1,’ ‘);
readln
end.