Uses crt;
Var hs:array[1..1000] of real;
Gioi,i,n: integer;

Begin
Clrscr;
Write(' Nhap so luong hoc sinh vao: '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap diem TBHK II cua hs[',i,'] = '); Readln(hs[i]);
End;
For i:= 1 to n do
Begin
If hs[i] >=8.0 then Gioi:= Gioi + 1;
End;
Writeln;
Write(' So HSG mon tin cua lop nay la: ',Gioi);
Readln;
End.

1. program b1;
uses crt;
var A:array[1..100] of integer;
    i,n:integer;
begin
clrscr;
writeln('nhap so hoc sinh trong lop');
readln(n);
for i:=1 to n do
begin
writeln('nhap so diem cua hoc sinh ',i,' la');
readln(A[i]);
end;
readln;
end.

2.

program b1;
uses crt;
var A:array[1..100] of integer;
    i,n:integer;
    S: real;
begin
clrscr;
S:=0;
writeln('nhap so hoc sinh trong lop');
readln(n);
for i:=1 to n do
begin
writeln('nhap so diem cua hoc sinh ',i,' la');
readln(A[i]);
end;
for i:=1 to n do
begin
if A[i] >= 8 then S:=S+i;
end;
writeln('so hoc sinh gioi la',S:2:1);
readln;
end.