khó không kém

by tue96 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

by tieuquaitu 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.

by tieuquaitu 21/2/2011, 10:24 pm

chay thu di nhe.minh chua chay thu dau.

by tue96 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ẻ

by tieuquaitu 21/2/2011, 10:49 pm

cu doi day.t chua chiu dau

by tieuquaitu 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.

by tue96 4/3/2011, 4:45 pm

sao phải thế. 5 vòng for cuối cùng cũng ra Twisted Evil

by tieuquaitu 4/3/2011, 9:02 pm

lam the nao?

by tue96 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

by tue96 4/3/2011, 9:08 pm

cẩn thận kẻo loạn à nha

by Sponsored content

khó không kém

khó không kém

co pai la tim 5 so le lon nhat khong?

Re: khó không kém

Re: khó không kém

Re: khó không kém

Re: khó không kém

Re: khó không kém

Re: khó không kém

Re: khó không kém

Re: khó không kém

Re: khó không kém