Viết chương trình nhập điểm cho 30 học sinh. In ra màn hình số học sinh giỏi( điểm >=8)
2 câu trả lời
uses crt;
var n,i,d : integer;
a : array[1..30] of real;
begin d:=0;
for i:=1 to 30 do begin
write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to 30 do if a[i] >= 8 then d:=d+1;
write('So hoc sinh gioi :', d);
readln
end.
Program Hotboy;
Uses crt;
Var B:array[1..30] of real;
D:byte;
Begin
Clrscr;
D:=0;
For i:=1 to 30 do
Write('B[',i,]');
Readln(B[i]);
For i:=1 to 20 do
If A[i] >= 8 then inc(d);
Write('so hs gioi la',D);
Readln
End.
Câu hỏi trong lớp
Xem thêm