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.

1 tháng 1 2017

Có:

a1+a2=a3+a4=...=a2015+a1=1

=>a1+a2+a3+a4+...+a2014+a2015=1007+a2015

Mà 1007+a2015=0

=>a2015=-1007.

=>a1=1--1007

a1=1008.

Chúc học tốt^^

1 tháng 1 2017

Có:

a1+a2=a3+a4=...=a2015+a1=1

=>a1+a2+a3+a4+...+a2014+a2015=1007+a2015

Mà 1007+a2015=0

=>a2015=-1007.

=>a1=1--1007

a1=1008.

Chúc học tốt^^

13 tháng 7 2016

fdhjsbfdbzù

Bài 1: 

uses crt;

var a:array[1..1000000]of longint;

i,n,x:longint;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap x='); readln(x);

for i:=1 to n do 

  if a[i]<>x then write(a[i]:4);

readln;

end.

18 tháng 4 2021

Mình cảm ơn bạn nhiều lắm

 

24 tháng 2 2021

a1=1009

a2=-1008

a2017=-1008

11 tháng 10 2019

mik cần cách bồi giỏi lớp 7 nha bn

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.