Uses Crt;
Var hs:array[1..500] of integer;
i,j,n,tg,hsg,k:longint;
Begin
Clrscr;
{a}write('Nhap so ptu N= '); Readln(n);
For i:=1 to n do
Begin
Repeat
Write(' Nhap diem mon toan cho hs[',i,'] = '); Readln(hs[i]);
{c1} until (hs[i]<=10);
If hs[i]>=8 then hsg:=hsg+1;
{d1} If hs[i]<5 then k:=k+1;
End;
Write('So hoc sinh gioi la: ',hsg,'. Ti le chiem: ',hsg/n*100:0:0,'%');
Writeln;
Readln
End.
* Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhá. Cảm ơn bác nhiều nhá!!! :333
*p/s: Hỏi và đáp, comment bên dưới!!!