em cùi quá, giúp em pascal ah

[dragonlys]

đề: Nhập 1 dãy số n <= 10. Tính trung bình cộng, xuất ra màn hình số kế tiếp số trung bình cộng.

[ngoccong2001]

đơn giản thế mà cũng hỏi hả bạn :(
Begin
a=0
a,b,n: interger;
Write( Nhập n);
Readln n;
IF n>1 and n<=10 then
continue
ELSE
Break
ENDIF
For i =1 to n do
a=a+1
ENDFor
a=a/2
b=a+1
write(a)
write(b)
end.
Nhìn chung là thế. Còn cú pháp thì tự sửa nha.
Close topic