Question

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

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

Answer 1

Количество элементов в массивах одинаковое и равно 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.

Answer 2

uses crt; {подключение модуля crt}
var {описание переменных}
   a,b,c:array [1..100] of integer;
  i:integer;
begin
  write('Введи количество элементов массива: '); read(i); {вывод текста на экран и чтение вводимых данных}
  clrscr; {очистка экрана}
  writeln('Первый массив: '); {вывод текста на экран}
  for i:=1 to i do {цикл}
  begin
    a[i]:=random(10); {значения первого массива от 0 до 9}
    b[i]:=random(10)-10; {значения второго массива от -10 до -1}
    if i mod 2=0 then c[i]:=b[i] {четные элементы третьего массива}
      else c[i]:=a[i]; {нечетные элементы третьего массива}
    write(a[i]:4); {вывод на экран первого массива}
  end; {конец цкла}
  writeln; writeln('Второй массив'); {вывод текста на экран}
  for i:=1 to i do {цикл}
    write(b[i]:4); {вывод второго массива на экран}
  writeln; writeln('Третий массив:'); {вывод текста}
  for i:=1 to i do {цикл}
    write(c[i]:4); {вывод третьего массива}
end.