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 )

0 bình luận về “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. 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.

   Bình luận