Hãy nêu ý nghĩa của các câu lệnh trong chương trình sau: var a, Thunhap_TB: real; i: Integer; begin Thunhap_TB:= 0; for i:=1 to 50 do begin write('Thu nhap của gai dinh thu',i); readln(a); Thunhap_TB: = Thunhap_TB+a end; Thunhap_TB: = Thunhap_TB/50; for i:=1 to 50 do begin write('Thu nhap của gai dinh thu',i); readln(a); writeln('Do lech so voi thu nhap TB la:',a-Thunhap_TB) end; end.

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!