viết pt pascal tính nhiệt độ trung bình trong vòng 1 năm hoặc 1 tháng

1 câu trả lời

Program baitap;

Uses crt;

Var A:array[1..400] of real;

      n,i:integer;

      tb:real;

Begin

Clrscr;

Writeln('Nhap so ngay:'); Readln(n);

tb:=0;

For i:=1 to n do

     Begin

     Writeln('Nhap nhiet do ngay ',i,':');

     Readln(A[i]);

     tb:=tb+A[i];

     End;

Writeln('Nhiet do trung binh:',tb/n:5:1);

Readln

End.

Câu hỏi trong lớp Xem thêm