Viết ct pascal làm các nhiệm vụ sau: 1- Nhập vào từ bàn phím điểm KT học kì II môn tin của n hs trong 1 lớp 2- In ra màn hình số hs đạt điểm giỏi (đi

0 bình luận về “Viết ct pascal làm các nhiệm vụ sau: 1- Nhập vào từ bàn phím điểm KT học kì II môn tin của n hs trong 1 lớp 2- In ra màn hình số hs đạt điểm giỏi (đi”

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

   Bình luận

2. 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.

       

   Bình luận