Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помогите пожалуста новечку решить задачу в паскале

Автор: Dorash87 24.01.2007 3:32

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

Автор: мисс_граффити 24.01.2007 3:39

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

Автор: arhimag 24.01.2007 4:05

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, в разделе есть модераторы... Или ты уже почувствовал себя одним из них? dry.gif


Автор: Dorash87 24.01.2007 4:51

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