Câu 1:
program bt;
uses crt;
var gioi,kha,tb,kem,n,i:integer;
a: array [1..100] of real;
begin
clrscr;
writeln('Nhap so ban trong lop: '); readln(n);
writeln('Nhap diem: ');
for i:=1 to n do begin write(i'.'); readln(a[i]); end;
gioi:=0; kha:=0; tb:=0; kem:=0;
for i:=1 to n do begin
if a[i] > 8 then gioi:=gioi+1;
if (a[i] >= 6,5) and (a[i] <= 7,9) then kha:=kha+1;
if (a[i] >= 5) and (a[i] < 6,5) then tb:=tb+1;
if a[i] <5 then kem:=kem+1;
end;
write('So hoc sinh dat gioi la: ',gioi);
write('So hoc sinh dat kha la: ',kha);
write('So hoc sinh dat trung binh la: ',tb);
write('So hoc sinh dat kem la: ',kem);
readln
end.
Câu 2: Windows là một phần mềm chạy trên máy tính và các thiết bị di động, dùng để điều hành, quản lý các thiết bị phần cứng và các tài nguyên phần mềm trên máy tính, và các thiết bị di động.