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.

Bình luận (0)
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ì?

Bình luận (0)
Lê Qúy Dương
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]

Bình luận (0)
Nguyễn Thu Hiền
Xem chi tiết
Nguyễn Thu Hiền
5 tháng 2 2017 lúc 14:55

chuc mung xinh nhat thu thao

Bình luận (0)
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

Bình luận (0)
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 đó

Bình luận (2)
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 ạ

Bình luận (0)