K
Khách

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.

21 tháng 12 2018

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.

18 tháng 12 2021

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

24 tháng 4 2016

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]

5 tháng 2 2017

chuc mung xinh nhat thu thao

29 tháng 1 2017

k hiểu bn ơi

4 tháng 2 2017

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

5 tháng 2 2017

trừi ưi ... 2018 thì cx giống 2018 mừ ...

23 tháng 1 2017

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