Viết chương trình đếm xem mình có bao nhiêu bạn trong lớp số hs nam, số hs nữa đc nhập từ bàn phím
1 câu trả lời
program Min;
uses crt;
var A:array[1..10] of real;
tong,tb:real;
i,dem:integer;
begin
clrscr;
tong:=0; tb:=0;
for i:=1 to 10 do
begin
write('Nhap diem cua hoc sinh ',i,': ');
readln(A[i]);
end;
for i:=1 to 10 do
begin
tong:=tong+A[i];
if A[i]>5 then inc(dem);
end;
tb:=tong/10;
writeln(' ');
Câu hỏi trong lớp
Xem thêm
