Заменить все элементы, которые равны сумме двух соседних предыдущих элемнтов на нули

@Dendy · Регистрация: 24.09.2012

Author24 — интернет-сервис помощи студентам

Добрый вечер форумчани)
Помогите мне пожалуйста решить задачку!)

В целочисленном массиве А [1 .. n] заменить все элементы, которые равны сумме двух соседних предыдущих элемнтов на нули.
Большое спс!!!

@Sokoll · 22.01.2013, 23:08

Pascal

const
n=10;
var
i:integer;
a: array [1..n] of longint;
begin
for i:=1 to n do begin
read(a[i]);
write(a[i],' '); 
end;
writeln;
for i:=2 to n-1 do
if a[i-1]+a[i+1]=a[i] then a[i]:=0;
for i:=1 to n do
write(a[i],' ');
end.

@Dendy · 22.01.2013, 23:13 **[ТС]**

Спасибушки!)))))))

@Sokoll · 22.01.2013, 23:20

9 строка не к месту там, почему то написал её туда...

@Dendy 1 / 1 / 3 Регистрация: 24.09.2012 Сообщений: 67
		1
	Заменить все элементы, которые равны сумме двух соседних предыдущих элемнтов на нули 22.01.2013, 23:00. Показов 739. Ответов 3 Метки нет (Все метки) Добрый вечер форумчани) Помогите мне пожалуйста решить задачку!) В целочисленном массиве А [1 .. n] заменить все элементы, которые равны сумме двух соседних предыдущих элемнтов на нули. Большое спс!!! 0

@Dendy 1 / 1 / 3 Регистрация: 24.09.2012 Сообщений: 67
	22.01.2013, 23:13 [ТС]	3
	Спасибушки!))))))) 0

@Sokoll 6 / 6 / 7 Регистрация: 18.01.2013 Сообщений: 23
	22.01.2013, 23:20	4
	9 строка не к месту там, почему то написал её туда... 1