VIết chương trình nhập vào từ bàn phím điểm trung bình của 10 học sinh đếm và báo ra màn hình có bao nhiêu học sinh có điểm trung bình nhỏ hơn 5
VIết chương trình nhập vào từ bàn phím điểm trung bình của 10 học sinh đếm và báo ra màn hình có bao nhiêu học sinh có điểm trung bình nhỏ hơn 5
program tinh_diem;
uses crt;
var a:array[1..100] of integer;
i,d:integer;
begin
clrscr;
d:=0;
writeln(‘Nhap diem trung binh cua 10 HS: ‘);
for i:=1 to 10 do
begin
write(‘Diem hoc sinh thu ‘,i,’: ‘); readln(a[i]);
end;
for i:=1 to 10 do if a[i]<5 then d:=d+1;
write(‘Co ‘,d,’ HS co diem TB nho hon 5′);
readln;
end.
program DTB;
var a:array[1..10] of integer;
dem,i,n: integer;
begin
write(‘Nhap diem TB cua 10 hoc sinh’);
readln(n);
for i:=1 to n do
begin
writeln(‘a[‘,i,’]=’); readln(a[i]);
end;
dem:=0;
for i:=1 to n do if a[i] > 5 then dem:=dem+1;
write(‘Co’, dem ,’hoc sinh co diem TB nho hon 5′);
readln;
end.
vote 5 sao