giup minh giai bai tap pascal nay voi cac ban

[phuong104]

cho diện tích 1,diện tích 2, diện tich N... va sản lượng 1, sản lượng 2.... sản lượng N là diện tích va sản lượng lương thực tương ứng của xã. viết chương trình pascal de nhập dữ liệu tính và in ra.
năng suất lương thực trung bình và tổng sản lương of các xã có năng xuất thấp hơn năng xuất trung bình

[hoainam113]

uses crt;
var i,n,tongs,tongsl:integer;
s,sl:array [1..100] of integer;
nstb:real;
begin
clrscr;
tongs:=0;
tongsl:=0;
write('nhap vao so xa');readln(n);
for i:=1 to n do
begin
write('nhap dien tich xa ',i,' : ');readln(s[i]);
write('nhap san luong xa ',i,' : ');readln(sl[i]);
tongs:=tongs+s[i];
tongsl:=tongsl+sl[i];
end;
nstb:=tongsl/tongs;
writeln('nang suat trung binh cua tat ca cac xa la : ',nstb:2:2);
tongsl:=0;
for i:=1 to n do
if (sl[i]/s[i])<nstb then
tongsl:=tongsl+sl[i];
writeln('tong san luong cac xa co nang suat duoi trung binh la :',tongsl);
readln;
end.

[phuong104]

thanks ban nhieu nha.