Viết chương trình nhập điểm trung bình của n học sinh trong lớp đếm có bao nhiêu bạn ,loại giỏi điểm Trung bình lớn hơn hoặc bằng 8 , loại khá điểm trung bình lớn hơn hoặc bằng 7 bé hơn 8 ,loại trung bình lớn hơn hoặc bằng 5 bé hơn 7
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a:array[1..200] of real;
begin
clrscr;
write('Nhap tong so ban trong lop:');
readln(n);
for i:=1 to n do readln(a[i]);
gioi:=0; kha:=0; kem:=0;
for i:=1 to n do
begin
if (a[i]>=8) then inc(gioi);
if (6.5<=a[i]) and (a[i]<=7.9) then inc(kha);
if (a[i]<6.5) then inc(kem);
end;
writeln('So hoc sinh gioi la:',gioi);
writeln('So hoc sinh kha la:',kha);
writeln('So hoc sinh kem la:',kem);
readln;
end.
program DiemTB;
var
diemToan, diemVan, diemTB: real;
begin
write('Nhap diem mon Toan: ');
readln(diemToan);
write('Nhap diem mon Van: ');
readln(diemVan);
diemTB := (diemToan + diemVan) / 2;
writeln('Diem trung binh: ', diemTB:0:2);
if diemTB >= 5 then
writeln('Chuc mung! Ban da dau ky thi.')
else
writeln('Rat tiec! Ban da truot ky thi.');
readln;
end.
Gọi số học sinh giỏi, khá, trung bình lần lượt là a, b, c
Theo đề, ta có: \(\frac{a}{3}=\frac{b}{4}=\frac{c}{5}\) và c - a = 8
Theo tính chất của dãy tỉ số bằng nhau, ta có:
\(\frac{a}{3}=\frac{b}{4}=\frac{c}{5}=\frac{c-a}{5-3}=\frac{8}{2}=4\)
=> a = 4.3 = 12; b = 4.4 = 16; c = 4.5 = 20
Vậy số học sinh giỏi, khá, trung bình của lớp 7A lần lượt là 12 học sinh, 16 học sinh, 20 học sinh.
uses crt;
var a:array[1..100]of real;
i,n,dem1,dem2,dem3,dem4:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem1:=0;
dem2:=0;
dem3:=0;
dem4:=0;
for i:=1 to n do
begin
if (a[i]>=8) then inc(dem1);
if (6.5<=a[i]) and (a[i]<=7.9) then inc(dem2);
if (5<=a[i]) and (a[i]<=6.4) then inc(dem3);
if (a[i]<5) then inc(dem4);
end;
writeln('So hoc sinh gioi la: ',dem1);
writeln('So hoc sinh kha la: ',dem2);
writeln('So hoc sinh trung binh la: ',dem3);
writeln('So hoc sinh kem la: ',dem4);
readln;
end.
uses crt;
var a:array[1..100]of real;
n,i,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
for i:=1 to n do
if a[i]>=8 then dem:=dem+1;
for i:=1 to n do
if a[i]>=8 then write(a[i]:4:2,' ');
writeln;
writeln(dem);
readln;
end.
Ta có học sinh giỏi 1 phần
HS khá 2 phần
HS trung bình 3 phần
tổng số phần = nhau là 1+ 2 + 3= 6 phần
Ta có từ 30 tới 40 có số 36 chia hết cho 6
Số HS giỏi :
36 : 6 x 1 = 6 HS
Số HS khá :
36 : 6 x 2 = 12 hay 6 x 2 = 12 HS bởi vì HS giỏi = 1/2 HS khá
Số HS trung bình Là :
36 : 6 x 3 = 18 hay 6 x 3 = 18 HS bởi vì HS giỏi = 1/3 HS trung bình
ĐS : ........ nhé kick mình đi