Viết chương trình Pascal sử dụng biến mảng để nhập điểm TB cả năm của các bạn trong lớp từ bàn phím số các bạn trong lớp cũng được nhập vào từ bàn phím. Sau đó in ra màn hình số các bạn đặt kết quả học tập giỏi, khá, trung bình và yếu (theo tiêu chuẩn từ 8.0 trở lên đạt loại giỏi từ 6.5 đến 7.9 đặt loại khá, từ 5.0 đến 6.4 đạt trung bình và dưới 5.0 xếp loại yếu)
program ct;
uses crt;
var A:array[1..100] of real;
i,n,g,k,tb,y:integer;
begin clrscr;
write(‘Nhap so hoc sinh: ‘); readln(n);
for i:=1 to n do
begin
writeln(‘Nhap diem cho hoc sinh thu ‘,i,’: ‘); readln(A[i]);
end;
for i:=1 to n do
begin
if A[i]>=8.0 then inc(g);
if (A[i]>=6.5) and (A[i]<=7.9) then inc(k);
if (A[i]>=5.0) and (A[i]<=6.4) then inc(tb);
if A[i]<5 then inc(y);
end;
writeln(‘Co ‘,g,’ ban hoc gioi’);
writeln(‘Co ‘,k,’ ban hoc kha’);
writeln(‘Co ‘,tb,’ ban hoc trung binh’);
writeln(‘Co ‘,y,’ ban hoc yeu’);
readln;
end.
Học tốt!
program ct;
uses crt;
var i,n,gioi,kha,trungbinh,yeu:integer;
A:array[1..100] of real;
begin
clrscr;
write(‘nhap so hoc sinh:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
gioi:=0; kha:=0; trungbinh:=0; yeu:=0;
for i:=1 to n do
begin
if A[i]>=8.0 then gioi:=gioi+1;
if A[i]<5 then yeu:=yeu+1;
if (A[i]<8.0) and (A[i]>=6.5) then kha:=kha+1;
if (A[i]>=5) and (A[i]<6.5) then trungbinh:=trungbinh+1;
end;
writeln(‘ket qua’);
writeln(gioi,’ ban hoc gioi’);
writeln(kha,’ ban hoc kha’);
writeln(trungbinh,’ ban hoc trung binh’);
writeln(yeu,’ bam hoc yeu’);
readln
end.