var a, Thunhap_TB: real; i: Integer;   (Khai báo biến a, Thunhap_TB, i)

begin                                      

Thunhap_TB:= 0;                              (Gán giá trị Thunhap_TB= 0)

for i:=1 to 50 do                               (Thực hiện câu lệnh lặp từ 1-50)

begin                                                (Bắt đầu 1 câu lệnh ghép)

write('Thu nhap của gai dinh thu',i); (Viết thu nhập của gđ từ 1-50)

readln(a);                                           

Thunhap_TB: = Thunhap_TB+a         (Gán giá trị Thunhap_TB= Thunhap_TB+a) 

end;                                                   (Kết thúc lệnh ghép)

Thunhap_TB: = Thunhap_TB/50;       (Gán giá trị Thunhap_TB= Thunhap_TB : 50)  

for i:=1 to 50 do                                (Thực hiện câu lệnh lặp từ 1- 50) 

begin                                                 (Bắt đầu 1 câu lệnh ghép)

write('Thu nhap của gai dinh thu',i);  (Viết thu nhập của gđ từ 1-50)

readln(a);

writeln('Do lech so voi thu nhap TB la:',a-Thunhap_TB)  (In kết quả toàn bài ra màn hình thu nhập của hộ gđ)

end;                                                    (Kết thúc lệnh ghép)

end.

Học tốt!

var a, thunhap_tb:real; i:integer; (KHAI BÁO BIẾN).

begin

thunhap_tb=0;

for i:=1 to 50 do (CHO BIẾN I CHẠY TỪ 1 ĐẾN 50)

begin

write('thu nhap cua gia dinh thu: ',i); (IN RA DÒNG  thu nhap cua gia dinh thu TỪ 1 ĐẾN 50 )

readln(a); (NHẬP THU NHÂP CỦA TỪNG HỘ GIA ĐINH)

thunhap_tb:=thunhap_tb+a;(TÍNH TỔNG THU NHÂP CỦA 50 HỘ GIA ĐÌNH)

end;

thunhap_tb:=thunhaptb/50;(LẤY TỔNG THU NHẬP CỦA 50 HỘ GIA ĐÌNH CHIA CHO TỔNG SỐ HỘ)

for i:=1 to 50 do(TIẾP TỤC CHO I CHẠY TỪ 1 ĐẾN 50)

begin

write('thu nhap của gia đinh thu ',i); readln(a);(IN RA DONG thu nhap cua gia dinh TỪ 1 ĐẾN 50 VÀ THU NHAP CỦA TỪNG HỘ)

writeln('do lech so voi thu nhap tb la: ',a-thunhap_tb);(IN RA DÒNG CHỮ do lech so voi thu nhap tn la  VÀ TÍNH ĐỘ LỆCH GIỮA MỨC THU NHAP CỦA HỘ ĐÓ SO VỚI MỨC THU NHAP TRUNG BINH)

end.