cho 7 so nguyen a1;a2;...;a7.Viet cac so nguyen do theo 1 thu tu khac duoc b1;b2;b3;...;b7. c/m rang tich so (a1-b1).(a2-b2)...(a7-b7) chia het cho 2
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
sai đề : phải là: a1.a14+a14.a12<a1.a12 nếu thế thì giải như sau
Ta có : a1 + (a2 + a3 + a4) + … + (a11 + a12 + a13) + a14 + (a15 + a16 + a17) + (a18 + a19 + a20) < 0 ; a1 > 0 ; a2 + a3 + a4 > 0 ; … ; a11 + a12 + a13 > 0 ; a15 + a16 + a17 > 0 ; a18 + a19 + a20 > 0 => a20 < 0.
Cũng như vậy : (a1 + a2 + a3) + … + (a10 + a11 + a12) + (a13 + a14) + (a15 + a16 + a17) + (a18 + a19 + a20) < 0 => a13 + a14 < 0.
Mặt khác, a12 + a13 + a14 > 0 => a12 > 0.
Từ các điều kiện a1 > 0 ; a12 > 0 ; a14 < 0 => a1.a14 + a14a12 < a1.a12 [dpcm]
Var
i,d,n :integer;
a:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i]>0 then d:=d+1;
write('mang A co :',d,'so nguyen duong');
readln
end.
Giả sử không có 2 số nào bằng nhau. Coi \(a_1>a_2>a_3>...>a_{2016}>a_{2017}\)
Do \(a_1;a_2;...;a_{2017}\in Z_+\)
\(\Rightarrow\frac{1}{a_1}+\frac{1}{a_2}+...+\frac{1}{a_{2017}}\le\frac{1}{1}+\frac{1}{2}+\frac{1}{3}+...+\frac{1}{2017}< 1+\frac{1}{2}+\frac{1}{2}+...+\frac{1}{2}=1009\)( Vô lý)
Do đó có ít nhất 2 số bằng nhau.