Đề: Viết CT nhập vào số học sinh một lớp, tên và điểm của học sinh tương ứng. Xét loại học sinh theo cơ cấu sau :
+ Nếu điểm ≥ 8 thì xếp loại giỏi
+ Nếu điểm < 8 thì xếp loại kém
sau đó xếp số học sinh loại giỏi và loại kém thành 2 nhóm khác nhau. in ra tên các học sinh thuộc loại giỏi và kém
Lưu ý: dùng Mảng và câu lệnh lặp nếu có thể
Đề: Viết CT nhập vào số học sinh một lớp, tên và điểm của học sinh tương ứng. Xét loại học sinh theo cơ cấu sau : + Nếu điểm ≥ 8 thì xếp loại giỏi +
By Alice
uses crt;
var i,j,n,dem,dem1:integer;a:array[1..100]of integer;
begin
dem:=0;
dem1:=0;
clrscr;
write(‘nhap tong so hoc sinh: ‘);readln(n);
for i := 1 to n do
write(‘nhap diem tung hoc sinh: ‘);readln(a[i]);
for i := 1 to n do
begin
if a[i] >= 8 then
begin
inc(dem);
write(‘so hoc sinh gioi la: ‘,dem);
end;
if a[i] < 8 then
begin
inc(dem1);
write(‘so hoc sinh kem la: ‘,dem1);
end;
end;
readln;
end.
uses crt;
var diem, gioi, kem:array[1..50]of integer;
ten:array[1 .. 50]of string;
i,i1,i2,n:integer;
begin
clrscr;
writeln(‘nhap so hoc sinh’);readln(n);i1=0;i2=0;
for i:=1 to n do begin
writeln(‘nhap ten hoc sinh thu ‘,i);
readln(ten[i]);
writeln(‘nhap diem hoc sinh thu i’);
readln(diem[i]);
if diem[i]>=8 then begin i1:=i1+1;gioi[i1]:=i; end
else begin i2:=i2+1;kem[i2]:=i; end;
end;
writeln(‘hoc sinh gioi’);
for i:=1 to i1 do
writeln(ten[gioi[i]]);
writeln(‘hoc sinh kem’);
for i:=1 to i2 do
writeln(ten[kem[i]]);
readln;
end.