Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Quandung Le
Xem chi tiết
Trâm Nguyễn Thị Ngọc
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.

niem
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 12 2021 lúc 14:27

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

Lê Qúy Dương
Xem chi tiết
Nguyễn Thu Hiền
Xem chi tiết
doan trung kien
Xem chi tiết
SKT_ Lạnh _ Lùng
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]

Vo Thanh Anh
Xem chi tiết
Xem chi tiết
Sakura
29 tháng 1 2017 lúc 12:42

k hiểu bn ơi

Ngu Huyen Thanh
Xem chi tiết
Ngu Huyen Thanh
4 tháng 2 2017 lúc 21:08

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

ha thi thanh thao
Xem chi tiết
Nguyễn Liêu Hóa
23 tháng 1 2017 lúc 21:02

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