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

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.

количество элементов в массивах одинаковое и равно n.a -  первый массивb -  второй массивc -  третий массивi - цикловая переменная, индекс элемента массиваvara, b, c : array [1..100] of integer; n, i : integer; beginreadln (n); for i : = 1 to n doreadln (a [ i ]); [ввели первый массив]for i : = 1 to n doreadln (b [ i ]); [ввели второй массив] for i : = 1 to n do beginif i mod 2 = 0 then  [проверка индекса элемента на чётность]  c [ i ]  =  b [ i ]; elsec [ i ] = a [ i ]; end; [создали третий]  for i : = 1 to n do writeln (c [ i ] : 4); [вывод третьего массива]end.можно всё это сделать одним циклом. vara, b, c : array [1..100] of integer; n, i : integer; beginreadln (n); for i : = 1 to n dobeginreadln (a [ i ]); readln (b [ i ]); if i mod 2 = 0 thenc [ i ]  =  b [ i ]; elsec [ i ] = a [ i ]; writeln (c [ i ] : 4); end; end.

3246 бит = 405.75 байт = 0.396240234 Кбайт