Mọi người giúp giùm bài này với >_<
3 posters
Trang 1 trong tổng số 1 trang
sad_may- Thành viên mới
- Ngày sinh : 25/05/1994
Tuổi : 29
Ngày đăng ký : 18/02/2011
Re: Mọi người giúp giùm bài này với >_<
var n,a,i:integer;
s:array[1..100] of integer;
begin
write('nhap a='); readln(a);
write('nhap n='); readln(n);
for i:=1 to n do readln(s[i]);
for i:=1 to n do
if (s[i]0) then
writeln(s[i]);
readln
end.
s:array[1..100] of integer;
begin
write('nhap a='); readln(a);
write('nhap n='); readln(n);
for i:=1 to n do readln(s[i]);
for i:=1 to n do
if (s[i]0) then
writeln(s[i]);
readln
end.
nbni- Thành viên mới
- Ngày sinh : 12/08/1995
Tuổi : 28
Ngày đăng ký : 18/02/2011
gui ban nbni
t khong hjeu ban muon lam gj ca.ban khong nhap so lieu thj lam gj co gj de ma xu lj.neu chj dua ra cac so khac 0 thj baj nay qua de.
tieuquaitu- Thành viên thường
- Ngày sinh : 08/07/1993
Tuổi : 30
Ngày đăng ký : 09/02/2011
Re: Mọi người giúp giùm bài này với >_<
Đoạn này mình chưa hiểu lắm bạn viết rõ hơn được không ? >_<tieuquaitu đã viết:
writeln('cac so muon tim la');
for i:=1 to n do
begin
(if s[i]
end;
readln
end;
Đoạn trên lúc đầu viết giống bn nhưng mà sao nó cứ báo lỗi Syntax error: expected but BEGIN found T_T
sad_may- Thành viên mới
- Ngày sinh : 25/05/1994
Tuổi : 29
Ngày đăng ký : 18/02/2011
Re: Mọi người giúp giùm bài này với >_<
sorry nha,luc minh test trên pascal thì đúng nhưng khi post lên thi mình đánh bị thiếu,minh sửa rùi nè,bạn chạy thử nhé,co gj thì cho mình biết...
var n,a,i:integer;
s:array[1..100] of integer;
begin
write('nhap a='); readln(a);
write('nhap n='); readln(n);
for i:=1 to n do readln(s[i]);
for i:=1 to n do
if (s[i] mod 2<>0)
and
(s[i] writeln(s[i]);
readln
end.
cái chổ and đó bạn,bạn thêm vô là (s[i]
var n,a,i:integer;
s:array[1..100] of integer;
begin
write('nhap a='); readln(a);
write('nhap n='); readln(n);
for i:=1 to n do readln(s[i]);
for i:=1 to n do
if (s[i] mod 2<>0)
and
(s[i] writeln(s[i]);
readln
end.
cái chổ and đó bạn,bạn thêm vô là (s[i]
nbni- Thành viên mới
- Ngày sinh : 12/08/1995
Tuổi : 28
Ngày đăng ký : 18/02/2011
Re: Mọi người giúp giùm bài này với >_<
s[i] nhỏ hơn a dùm mình,không hiểu sao khi post lên diễn đàn nó không hiển thị
nbni- Thành viên mới
- Ngày sinh : 12/08/1995
Tuổi : 28
Ngày đăng ký : 18/02/2011
Re: Mọi người giúp giùm bài này với >_<
uhm, chạy òi ^^, thanks 2 bạn nbni vs tieuquaitu nhìu nhaz
sad_may- Thành viên mới
- Ngày sinh : 25/05/1994
Tuổi : 29
Ngày đăng ký : 18/02/2011
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|
15/4/2011, 10:34 pm by funny
» Mọi người làm giúp tôi bài này với !
13/4/2011, 11:42 am by phonggia
» Giúp mình giải bài này với
12/4/2011, 1:00 pm by ldt
» Chia se 1 bai paccal ve ve do thi
11/4/2011, 1:55 pm by duy_sau_rom
» đồ hoạ trong pascal
9/4/2011, 9:16 pm by jetlongk4
» Giá trị biểu thức bằng kí pháp nghịch đảo
1/4/2011, 8:49 am by kh1132000
» AI GIẢI GIÚP EM BÀI NÀY VỚi , ĐANG CẦN GẤP GẤP LẮM :(
31/3/2011, 11:47 pm by jancancook
» dòng thời gian
31/3/2011, 11:31 am by gianggiangonline
» anh nào giúp em với
30/3/2011, 11:00 pm by sieuhoatinh
» VTC trả lương 10 triệu cho SV tốt nghiệp ĐH Văn Hiến - khoa CNTT - ĐTVT tại Hà Nội
29/3/2011, 2:48 pm by SV_tuonglai
» Download cẩm nang mùa thi 2011 tại đây
29/3/2011, 2:47 pm by SV_tuonglai
» Check giúp mình lỗi trong code này với !
27/3/2011, 10:07 pm by mamap0511
» Tai nghe sony dr 370 ve hang moi
25/3/2011, 8:42 pm by hs_bin
» giúp em với
25/3/2011, 12:11 pm by nbni
» Headphone sony dr 370 moi ve hang
24/3/2011, 9:13 pm by hs_bin
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
24/3/2011, 9:11 pm by tuan045610
» Headphone sony DR 370 moi ve hang
21/3/2011, 8:11 pm by hs_bin
» Sony DR 310 moi ve hang
20/3/2011, 9:34 pm by hs_bin
» Mọi người giúp dùm em!!^^
20/3/2011, 9:53 am by trangbui_thcstanhiep
» bài tập về hàm trog pascal
18/3/2011, 10:34 pm by sieuhoatinh