nhập vào nhiệt độ của các ngày trong tuần. Tính nhiệt độ trung bình tuần . Số ngày có nhiệt độ cao hơn hoặc nhiệt độ thấp hơn.

Question

kimoanh · Answer

program nhiet_do;

uses crt;

var A:array[1..7] of integer;

i,d1,d2:byte;

t:integer;

tb:real;

begin

clrscr;

t:=0;

for i:=1 to 7 do

begin

if i=7 then write(‘Nhap nhiet do cua chu nhat: ‘);

else write(‘Nhap nhiet do cua thu ‘,i+1’: ‘);

readln(A[i]);

t:=t+A[i];

end;

tb:=t/7;

writeln(‘Nhiet do trung binh la: ‘,tb:0:2);

d1:=0; d2:=0;

for i:=1 to 7 do

if A[i]>tb then d1:=d1+1

else if A[i]<tb then d2:=d2+1;

writeln(‘Co ‘,d1,’ ngay co nhiet do cao hon trung binh’);

writeln(‘Co ‘,d2,’ ngay co nhiet do thap hon trung binh’);

readln;

end.

0 bình luận về “nhập vào nhiệt độ của các ngày trong tuần. Tính nhiệt độ trung bình tuần . Số ngày có nhiệt độ cao hơn hoặc nhiệt độ thấp hơn.”