program bai2;

Uses crt; 

Var

        n,i,dem:integer;

        A:array[1..1000] of real;

Begin

         Clrscr;

         write('Nhap so hoc sinh: '); readln(n);

         For i:=1 to n do 

         Begin

                 write('Hoc sinh thu ',i,': '); readln(A[i]);

        End;

        write('a. '); dem:=0;

        For i:=1 to n do

        begin

               if A[i]>8 then write(i,' '); 

               If A[i]=10 then dem:=dem+1;

       End; writeln;

       write('b. Co ',dem,' ban 10 diem');

       Readln;

End.

#HN

#Chuc_em_hoc_tot

        

program ct;
uses crt;
var n,i2,dem:byte;
    a,i:array [1..255] of real;
begin
    clrscr;
    writeln('Nhap so HS: ');readln(n);
    for i2:= 1 to n do
        begin
        writeln('Nhap diem cua ban thu ',i2); readln(i[i2]);
        a[i2]:=i2;
        end;
    writeln(); write('Nhung ban co diem tren 8 la nhung ban co STT sau:');    
    for i2:= 1 to n do
        begin
        if i[i2] > 8 then
            write(a[i2]:5:0,' ');
        end;
    writeln();
    dem:=0;
    for i2:= 1 to n do
        begin
        if i[i2] = 10 then
            dem:=dem+1;
        end;
    writeln('So ban co diem bang 10 la: ',dem);
    readln;
end.

_____________

Thi tốt nha, học tốt, 10 điểm!!!