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]

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

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

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 ạ