Sử dụng biến mảng viết chương trình nhập điểm các bạn trong lớp va và in ra màn hình kết quả học tập : loai gioi , khá, trung bình và kém ( 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 loại trung bình và dưới 5. 0 đạt loại kém )
K
Khách
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.
Những câu hỏi liên quan
28 tháng 2 2022
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.
TT
24 tháng 4 2022
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.
TT
26 tháng 4 2022
program b1;
uses crt;
var i,n,dat,chuadat:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap tong so ban trong lop:');
readln(n);
for i:=1 to n do readln(a[i]);
dat:=0; chuadat:=0;
for i:=1 to n do
begin
if (a[i]>=5) then inc(dat);
if (5>=a[i]) then inc(chuadat);
end;
writeln('So hoc sinh dat la:',dat);
writeln('So hoc sinh chuadat la:',chuadat);
readln;
end.
Tham khao!
22 tháng 2 2022
uses crt;
var st:array[1..10]of string;
a:array[1..10]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(st[i],a[i]);
for i:=1 to n do
writeln(st[i],' ',a[i]);
readln;
end.
30 tháng 4 2022
uses crt;
var a:array[1..100]of real;
i,n:integer;
ln:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do writeln(a[i]);
ln:=a[1];
for i:=1 to n do if ln<a[i] then ln:=a[i];
writeln(ln);
readln;
end.
Program Phan_loai; uses crt; Var i, n, G, Kh, TB, K: integer; A: array[1..100] of real; Begin clrscr; write('Nhap so HS trong lop, n= '); readln(n); writeln('Nhap diem :'); For i:=1 to n do Begin write(i,' . '); readln(a[i]); End; G:=0; Kh:= 0; TB:= 0; K:= 0; for i:=1 to n do Begin if a[i] >= 8.0 then G:= G + 1; if a[i] <5.0 then K:= K + 1; if (a[i] =6.5) then Kh:= Kh + 1; if (a[i] >= 5 ) and (a[i] < 6.5) then TB:= TB + 1; end; writeln(' Ket qua hoc tap: '); writeln(G, ' ban hoc gioi '); writeln(Kh, ' ban hoc kha '); writeln(TB, ' ban hoc trung binh'); writeln(K, ' ban hoc kem '); Readln; End.
Program Phan_loai;
uses crt;
Var i, n, G, Kh, TB, K: integer;
A: array[1..100] of real;
Begin
clrscr;
write('Nhap so HS trong lop, n= ');
readln(n);
writeln('Nhap diem :');
For i:=1 to n do
Begin
write(i,' . ');
readln(a[i]);
End;
G:=0; Kh:= 0; TB:= 0; K:= 0;
for i:=1 to n do
Begin
if a[i] >= 8.0 then G:= G + 1;
if a[i] <5.0 then K:= K + 1; if (a[i] =6.5) then Kh:= Kh + 1;
if (a[i] >= 5 ) and (a[i] < 6.5) then TB:= TB + 1;
end;
writeln(' Ket qua hoc tap: ');
writeln(G, ' ban hoc gioi ');
writeln(Kh, ' ban hoc kha ');
writeln(TB, ' ban hoc trung binh');
writeln(K, ' ban hoc kem ');
Readln;
End.