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!

hửm???

kkkk 

=))) lỡ có chuyện j thì sao

chắc v=)))

Câu A đúng vì:
-Câu B vì nó không khai báo số 6 nên nó sai và không in ra được
-Câu C thì nó là 'Lop 8A' nên là kiểu dữ liệu chữ nên sẽ bị lỗi
Theo mình nghĩ là vậy

f)Tham khảo!

uses crt;
var n,i:integer;  p:longint;
begin
clrscr;
write('Nhap tu ban phim vao n:');
readln(n);
p:=1;
for i:=1 to n do if i mod 2=0 then p:=p*i;
write('Tich cua cac so chia het cho 2=',p);
readln;
end.

e)Tham khảo!

uses crt;
var n,i:integer;  p:longint;
begin
clrscr;
write('Nhap tu ban phim vao n:');
readln(n);
p:=1;
for i:=1 to n do p:=p*i;
write('Tich cua cac so=',p);
readln;
end.