Tuyển Cộng tác viên Hoc24 nhiệm kì 26 tại đây: https://forms.gle/dK3zGK3LHFrgvTkJ6


Những câu hỏi liên quan
QL
Xem chi tiết
TN
21 tháng 12 2018 lúc 16:33

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.

Bình luận (0)
H24
Xem chi tiết
NT
18 tháng 12 2021 lúc 14:27

Đề bài yêu cầu gì?

Bình luận (0)
LD
Xem chi tiết
NH
Xem chi tiết
DK
Xem chi tiết
SL
24 tháng 4 2016 lúc 17:42

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]

Bình luận (0)
VA
Xem chi tiết
XG
Xem chi tiết
H24
29 tháng 1 2017 lúc 12:42

k hiểu bn ơi

Bình luận (0)
NT
Xem chi tiết
NT
4 tháng 2 2017 lúc 21:08

Các bn ơi!! ko pải 2018 đâu nhà là 2018 đó

Bình luận (2)
HT
Xem chi tiết
NH
23 tháng 1 2017 lúc 21:02

trình rơm lắm thảo ạ

Bình luận (0)