Viết chương trình tính và đưa ra số ngày có nhiệt độ thấp hơn nhiệt độ trung bình của một tháng ( có sử dụng kiểu dữ liệu mảng )
1 câu trả lời
Program NN;
Uses crt;
Var A: array[1..30] of extended;
i,d: longint;
s,tbc: extended;
Begin
Clrscr;
For i:=1 to 30 do
s:=0;
Begin
Read(A[i]);
s:=s+A[i];
End;
tbc:=s/30;
d:=0;
For i:=1 to n do
If A[i]<tbc then inc(d);
Write(d);
Readln
End.
Câu hỏi trong lớp
Xem thêm
