Viết ct Pascal thực hiện việc sau: nhập n học sinh trong lớp(0

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)”

  1. 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!!!

    Bình luận

Viết một bình luận