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ểm KT học kì II môn tin >_ 8.0)
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
By Natalia
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.
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.