Paskal zadacha

[NTFF]

Составить алгоритм и написать программу которая заменяет каждый элемент массива из 1000 знач суммой его соседних элементов.

знаю как это визуально а как ему(ЕОМ) обьяснить не знаю.
вот как понимаю

1 5 7 4 2
5 12 7 4 2
5 12 16 4 2
5 12 16 15 2

прошу помощи.

[.Phoenix]

написать программу которая заменяет каждый элемент массива из 1000 знач суммой его соседних элементов.

Я вот тут не пойму тебя никак...

знаю как это визуально а как ему(ЕОМ) обьяснить не знаю.

Кому ему?

[NTFF]

условие звучит так: Составить алгоритм и написать программу которая заменяет каждый элемент массива из 1000 знач суммой его соседних элементов.

вспомогательные

Ai=Ai-1+Ai+1

i=1, Ai=Ai+1, i=1000, Ai=Ai-1,

[netrino]

Сообщение от .Phoenix

Кому ему?

Вероятно ЭВМ )
2NTFF, ну раз вы алгоритм понимаете, то что именно не позволяет его запрограммировать? Для каждого i-го взять сумму (i-1)-го и (i+1)-го, что тут сложного-то?)

[NTFF]

я не знаю как его правильно записать.

[NTFF]

помогите записать

[NeshSoft]

for i:=2 to 999 do mas[i]:=mas[i-1]+mas[i+1];
//где mas: array[1..1000] of integer;

[NTFF]

а как записать что что
0 1 2
не имеет соседненго числа????

[NeshSoft]

Сообщение от NTFF

а как записать что что
0 1 2
не имеет соседненго числа????

а что такое 0 1 2?
не имеют соседнего числа только крайние элементы массива т.е. 1 и 1000, поэтому цикл идет от 2 до 999.

[NTFF]

Что сдесь не так????

program math;
uses crt;
var A:array[1..1000] of integer;
i:integer;


begin
clrscr;
for i:=1 to 1000 do A[i]:=A[i-1]+A[i+1];
if i=1 then A[i]:=A[i-1];
else
if i:=1000 then A[i]:=A[i+1];


end.