Học tại trường Chưa có thông tin
Đến từ Chưa có thông tin , Chưa có thông tin
Số lượng câu hỏi 1
Số lượng câu trả lời 4
Điểm GP 0
Điểm SP 2

Người theo dõi (0)

Đang theo dõi (0)


Câu trả lời:

program TinhSanLuongLua;
var
num_households, i: integer;
xom3_harvest, xom6_harvest: array[1…100] of real;
xom3_total, xom6_total, xom3_avg, xom6_avg: real;
begin
// Nhập vào số lượng hộ gia đình ở xóm 3 và xóm 6
write('Nhap so luong ho gia dinh o xom 3 va xom 6: ');
readln(num_households);

// Nhập vào sản lượng thu hoạch lúa của từng hộ gia đình ở xóm 3
writeln('Nhap san luong thu hoach lua cua tung ho gia dinh o xom 3:');
for i := 1 to num_households do
begin
write('San luong thu hoach lua cua ho gia dinh ', i, ': ');
readln(xom3_harvest[i]);
end;

// Nhập vào sản lượng thu hoạch lúa của từng hộ gia đình ở xóm 6
writeln('Nhap san luong thu hoach lua cua tung ho gia dinh o xom 6:');
for i := 1 to num_households do
begin
write('San luong thu hoach lua cua ho gia dinh ', i, ': ');
readln(xom6_harvest[i]);
end;

// Tính tổng sản lượng thu hoạch lúa của từng xóm
xom3_total := 0;
xom6_total := 0;
for i := 1 to num_households do
begin
xom3_total := xom3_total + xom3_harvest[i];
xom6_total := xom6_total + xom6_harvest[i];
end;

// Tính sản lượng thu hoạch lúa trung bình của mỗi hộ gia đình ở từng xóm
xom3_avg := xom3_total / num_households;
xom6_avg := xom6_total / num_households;

// In ra màn hình sản lượng thu hoạch lúa trung bình của mỗi hộ gia đình ở từng xóm
writeln('San luong thu hoach lua trung binh cua moi ho gia dinh o xom 3 la: ', xom3_avg:0:2);
writeln('San luong thu hoach lua trung binh cua moi ho gia dinh o xom 6 la: ', xom6_avg:0:2);

Bạn tham khảo