Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Даны два массива. Получить третий массив который на четных номерах элементы второго массива на нечетных элементы первого массива.

решите пожалуйста через pascal ABC и опишите программу

Ответ оставил Гость

Количество элементов в массивах одинаковое и равно n.
a - первый массив
b - второй массив
c - третий массив
i - цикловая переменная, индекс элемента массива

var
a, b, c : array [1..100] of integer;
n, i : integer;
begin
readln (n);
for i := 1 to n do
readln (a [ i ]);
[ввели первый массив]
for i := 1 to n do
readln (b [ i ]);
[ввели второй массив]
for i := 1 to n do
begin
if i mod 2 = 0 then  [проверка индекса элемента на чётность] 
c [ i ] = b [ i ];
else
c [ i ] = a [ i ];
end;
[создали третий] 
for i := 1 to n do
writeln (c [ i ] : 4);
[вывод третьего массива]
end.

Можно всё это сделать одним циклом.

var
a, b, c : array [1..100] of integer;
n, i : integer;
begin
readln (n);
for i := 1 to n do
begin
readln (a [ i ]);
readln (b [ i ]);
if i mod 2 = 0 then
c [ i ] = b [ i ];
else
c [ i ] = a [ i ];
writeln (c [ i ] : 4);
end;
end.