Viết ct Pascal thực hiện việc sau: nhập n học sinh trong lớp(0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết ct Pascal thực hiện việc sau: nhập n học sinh trong lớp(0
0 bình luận về “Viết ct Pascal thực hiện việc sau: nhập n học sinh trong lớp(0<n ≤50) In ra màn hình số lượng và tỉ lệ số học sinh đạt điểm giỏi (ĐTB ≥80)”
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!!!
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!!!