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.

15 tháng 7 2021
Giúp mình với =(^•-•^)=

uses crt;

const fi='dulieu.inp';

var f1:text;

a:array[1..100]of integer;

n,i,t1,t2:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t1:=0;

t2:=0;

for i:=1 to n do 

 begin

if a[i]>0 then t1:=t1+a[i];

if a[i]<0 then t2:=t2+a[i];

end;

writeln('Tong cac so duong la: ',t1);

writeln('Tong cac so am la: ',t2);

close(f1);

readln;

end.

5 tháng 4 2015

Khó quá mới hỏi. Trả lời đúng là  nhà toán học

không?

 

 

9 tháng 5 2016

                  TH1 : Trong cac so tren co 1 so ai chia hết cho 10 ( i = 1;2;3;...;9) 

                                SUY RA trong 10 số bất kì có 1 số chia hết cho 10        ( 1)

                         TH2 : Trong các số trên ko có số nào chia hết cho 10 .Khi đó các số dư khi chia cho 10 là 1;2;3;...;9 ( 9 chữ số ),với 10 số chia cho 10 nên ít nhất sẽ có 2 số chia cho 10 có cùng số dư ( theo nguyen li dirich le)

                            Suy ra hiệu của 2 số đó sẽ chia hết cho 10           (2)

                           Từ 1 và 2 suy ra thế nào cũng sẽ có 1 số bất kì hoac hiệu một số các số liên tiếp nhau trong dãy trên chia hết cho 10(DPCM)