Tin học viết chương trình tính mức thu nhập trung bình của 5 hộ gia đình( in ra màn hình) 18/07/2021 By Mackenzie viết chương trình tính mức thu nhập trung bình của 5 hộ gia đình( in ra màn hình)
program trung_binh; uses crt; var a,t:longint; begin clrscr; t:=0; write(‘Nhap muc thu nhap cua gia dinh thu nhat: ‘); readln(a); t:=t+a; write(‘Nhap muc thu nhap cua gia dinh thu hai: ‘); readln(a); t:=t+a; write(‘Nhap muc thu nhap cua gia dinh thu ba: ‘); readln(a); t:=t+a; write(‘Nhap muc thu nhap cua gia dinh thu tu: ‘); readln(a); t:=t+a; write(‘Nhap muc thu nhap cua gia dinh thu nam: ‘); readln(a); t:=t+a; write(‘Muc thu nhap trung binh la: ‘,t/5:0:3); readln; end. Cách 2: Dùng mảng: program trung_binh; uses crt; var A:array[1..5] of longint; t:longint; i:byte; begin clrscr; t:=0; for i:=1 to 5 do begin write(‘Nhap muc thu nhap cua gia dinh thu ‘,i,’: ‘); readln(A[i]); t:=t+A[i]; end; write(‘Muc thu nhap trung binh la: ‘,t/5:0:3); readln; end. Trả lời