giải thích tác dụng của các câu lệnh sau:
var a,thunhap_tb:real;i:integer;
begin
thunhap_tb:=0;
for i:=1 to 50 do
begin
write(‘thu nhap cua gia 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 cua gia dinh thu’,i);readln(a);
writeln(‘do lech so voi thu nhap trung binh la:’,a-thunhap_tb)
end;
end.
d1: khai báo kiểu dữ liệu của biến a,…
d2: bắt đầu ct
d3: gán giá trị 0 cho biến thunhap_tb
d4: cho giá trị của i chạy từ 1 đến 50 và thực hiện câu lệnh ghép phía dưới
d5: bắt đầu câu lệnh ghép
d6: in ra màn hình dòng chữ ‘thu nhap cua gia dinh thu’ và giá trị của biến i
d7: cho phép nhập giá trị của a từ bàn phím
d8:gán giá trị biến thunhap_tb = thunhap_tb + a
d9: kết thúc câu lẹnh ghép
d10: gán giá trị biến thunhap_tb = thunhap_tb/50
d11: cho giá trị i chạy từ 1 đến 50 và thực hiện câu lẹnh ghép phía dưới
d12:bắt đầu câu lệnh ghép
d13: inra màn hình dòng chữ ‘thu nhap cua gia dinh thu’ và giá trị của biến i và cho phép nhập gt của a từ bàn phím
d14: in ra màn hình dòng chữ ‘do lech so voi thu nhap trung binh la:’ và in ra gt của a và gt của thunhap_tb
d15: kết thúc câu lệnh ghép
d16: kết thúc ct
chúc bạn học tốt:))
cho mk tlhn nhé