Sửa lỗi bài tập pascal

[quynhdh]

program Trung_binh_cong
Const Max = 100;
Var: So:Array[1...Max]of integer
Tong,i:Integer; TB :Real;
Begin
Write('TINH TRUNG BINH_VONG 100 SO NGUYEN');
wRITE('Nhap so nguyen'); writeln(songuyen);
Tong:=0 TB:=0;
Fori:= TO .Max Do
Begin
Write('----So thu:',,'i:,'=2); REadln(SO[i]);
Tong:=Tong=So;[i];;;;;;
End
Tb:=Tong/Max
Writeln;
Writeln('''==-tri tủng bing conhcuamin la;',.,Max:3,'so nguyen=,''=',Tb:8;
Readln
End

[amida]

Có 1 đống lỗi, ý bạn hỏi lỗi nào mình trả lời cho

[grenadier1991]

Nhâm sơ sơ cũng dc gần chục lỗi

[Master_Baby]

Thứ nhứt: thiếu các ";" sau mỗi câu lệnh, và có chỗ hẳn một đống ";" là ko ổn rồi.
Thứ hai: "Var:" => "Var"
Thứ ba: thay vì "Writeln(songuyen);" hãy viết "Readln(songuyen);"
Thứ tư: hãy để đoạn code yêu cầu nhập songuyen vào trong vòng lặp ko xác định (repeat, while), vòng lặp này dừng khi 0 < songuyen <= max
Thứ năm: vòng for (dòng thứ 9 từ trên xuống) viết kiểu gì thía. Thay thành "For i:=1 to songuyen do"
Thứ sáu: "Write('----So thu:',,'i:,'=2);"=>"Write('Nhap so thu ',i,':');"
Thứ bảy: "Tong:=tong+so[i];"
Thứ tám: "Writeln('''==-tri tủng bing conhcuamin la;',.,Max:3,'so nguyen=,''=',Tb:8);" => chẳng hiểu bạn viết gì nữa . Sửa: "Writeln('Trung binh cong cua ',songuyen:3,' so da nhap la ',tb:8);"
Thứ chín: Dòng cuối "End" => "End."

[quynhdh]

cam on các bạn đã đóng góp ys kiến
lần sau mong các bạn cứ đóng góp ý kiến như vậy nữa nhé
Cảm ơn

[grenadier1991]

Kakaka.
Master vẫn còn thiếu 1 lỗi .
Biến "songuyen" đâu???

[Master_Baby]

Pa grenadier này thích chọc ngoáy ghê!!!:d Đúng là còn thiếu khai báo biến songuyen nữa. So sorry.

[nguyenhonghanh]

bài này là bài tính trung bình cộng của các số nhập từ bàn phím vào ạ ?
nếu thế thì hỏi ng` nhập xem có bn số
rồi dùng vòng lặp
==> tbc:=tong/n;
thế là xong mà ^_^