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.