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)

Question

bichlien · Answer

Dưới ảnh

lanngoc · Answer

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.

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