Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите пожалуста новечку решить задачу в паскале
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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, в разделе есть модераторы... Или ты уже почувствовал себя одним из них? dry.gif

Dorash87
arhimag спасибо огромное очень выручил
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.