Помогите пожалуста новечку решить задачу в паскале Опции

[Dorash87]

Вот собственно задача: Задана линейная таблица А [1...n] В [1...n]. Сложить заполнение таблицы С элементами каждый с которых равен сумме двух элементов: 1 c табл. А и 1 с табл. В. С1=а1+вn; C2=a2+bn-1; Cn=An+B1

[мисс_граффити]

Переименуй тему - иначе она будет закрыта.

[arhimag]

Dorash87 , переименнуй тему пожалуйста.
Т.к. задача проста, то думаю, что если я её решение выложу, то ничего "криминального" не сделаю.

Код

var a, b, c : array [1..100] of integer;
n : integer;
i : integer;
begin
read(n);
for i:= 1 to n do read(a[i]);
for i:= 1 to n do read(b[i]);
for i:= 1 to n do c[i]:=a[i]+b[n+1-i];
for i:= 1 to n do write(c[i],' ');
end.

М

arhimag, в разделе есть модераторы... Или ты уже почувствовал себя одним из них?

Сообщение отредактировано: volvo - 24.01.2007 4:14

[Dorash87]

arhimag спасибо огромное очень выручил