khó không kém

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

khó không kém

Bài gửi by tue96 on 17/2/2011, 10:59 pm

Cho dãy số nguyên n phần tử. Tìm trong dãy 5 phần tử lẻ có tích lớn nhất(bất kì không theo thứ tự cũng đc).
Đọc tưởng dễ ai ngờ khó kinh dị.5 vòng for... không ăn thua hjx
avatar
tue96
Thành viên mới
Thành viên mới

Nam Ngày sinh : 25/02/1996
Tuổi : 21
Ngày đăng ký : 14/01/2011

Về Đầu Trang Go down

co pai la tim 5 so le lon nhat khong?

Bài gửi by tieuquaitu on 21/2/2011, 10:23 pm

var a:array[1..100] of integer;
b:array[1..100] of integer;
tg,n,i,j,z,dem:byte;
begin
write('nhap so phan tu:');
readln(n);
for i:=1 to n do
begin
write('nhap so thu ',i);{nhap it nhat 5 so le}
readln(a[i]);
end;
j:=0;
dem:=0;
for i:=1 to n do
begin
if a[i] mod 2<>0 then
begin

j:=j+1;
b[j]:=a[i];{chuyen cac so le ve mang b}
dem:=dem+1;

end;
end;

for z:=dem downto 2 do
for i:=1 to z-1 do
if b[i]begin
tg:=b[i];
b[i]:=b[i+1];
b[i+1]:=tg;
end;
{sap xep theo chieu giam dan}
writeln('5 so can tim la');
for i:=1 to 5 do write(b[i],' ');
readln
end.
avatar
tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh : 08/07/1993
Tuổi : 24
Ngày đăng ký : 09/02/2011

Về Đầu Trang Go down

Re: khó không kém

Bài gửi by tieuquaitu on 21/2/2011, 10:24 pm

lol! lol! lol! lol! lol! lol! lol! lol! lol! lol! chay thu di nhe.minh chua chay thu dau.
avatar
tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh : 08/07/1993
Tuổi : 24
Ngày đăng ký : 09/02/2011

Về Đầu Trang Go down

Re: khó không kém

Bài gửi by tue96 on 21/2/2011, 10:27 pm

chài. nhắng quá.nhỡ có số âm thì chả phải là tích đó âm sẽ nhỏ hơn các tích khác à.còn phải xét xem số phần tử âm chẵn hay lẻ
avatar
tue96
Thành viên mới
Thành viên mới

Nam Ngày sinh : 25/02/1996
Tuổi : 21
Ngày đăng ký : 14/01/2011

Về Đầu Trang Go down

Re: khó không kém

Bài gửi by tieuquaitu on 21/2/2011, 10:49 pm

cu doi day.t chua chiu dau
avatar
tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh : 08/07/1993
Tuổi : 24
Ngày đăng ký : 09/02/2011

Về Đầu Trang Go down

Re: khó không kém

Bài gửi by tieuquaitu on 4/3/2011, 1:07 pm

chac phai chia 3 truong hop.
tich 5 so duong.
tich 1 so duong 4 so am.
tich 3 so duong 1 so am.
avatar
tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh : 08/07/1993
Tuổi : 24
Ngày đăng ký : 09/02/2011

Về Đầu Trang Go down

Re: khó không kém

Bài gửi by tue96 on 4/3/2011, 4:45 pm

sao phải thế. 5 vòng for cuối cùng cũng ra Twisted Evil
avatar
tue96
Thành viên mới
Thành viên mới

Nam Ngày sinh : 25/02/1996
Tuổi : 21
Ngày đăng ký : 14/01/2011

Về Đầu Trang Go down

Re: khó không kém

Bài gửi by tieuquaitu on 4/3/2011, 9:02 pm

lam the nao?
avatar
tieuquaitu
Thành viên thường
Thành viên thường

Nam Ngày sinh : 08/07/1993
Tuổi : 24
Ngày đăng ký : 09/02/2011

Về Đầu Trang Go down

Re: khó không kém

Bài gửi by tue96 on 4/3/2011, 9:07 pm

B1: tìm ra các số lẻ(kể cả âm) rồi lưu zo 1 mảng
B2:kiểm tra xem số phần tử mảng đó có lớn hơn 5 hay không, lưu biến max bằng tích 5 phần tử đầu tiên.
B3:cho 5 vòng for lồng nha chạy, kiểm tra xem có tích nào lớn hơn max thì gán max= tích đó
B4: in ra max thôi Rolling Eyes
avatar
tue96
Thành viên mới
Thành viên mới

Nam Ngày sinh : 25/02/1996
Tuổi : 21
Ngày đăng ký : 14/01/2011

Về Đầu Trang Go down

Re: khó không kém

Bài gửi by tue96 on 4/3/2011, 9:08 pm

cẩn thận kẻo loạn à nha
avatar
tue96
Thành viên mới
Thành viên mới

Nam Ngày sinh : 25/02/1996
Tuổi : 21
Ngày đăng ký : 14/01/2011

Về Đầu Trang Go down

Re: khó không kém

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết