В первый массив включить элементы исходного массива с четными номерами, а во второй – с нечетными - Turbo Pascal (43113)

Формулировка задачи:

1) задан массив а размерности n. сформируйте два массива в и с: в первый включить элементы исходного массива а с четными номерами, а во второй с нечетными 2) Составить программу для вычисления суммы ряда: S i=1,n (2*i)!+|x| / (i во 2 степени) 3) { x+ SIN в 3 степени (x-b), 0<x<1 y={ LN(Корень (|b* e в степени (-х) -a|) + arctg (x-2)), x>2 <---(это все одна система) { не опредлено в остальных случаях где а=1.28 b=0,3 x=2,646 Заранее спасибо за помощь...))

Решение задачи: «В первый массив включить элементы исходного массива с четными номерами, а во второй – с нечетными»

Листинг программы

var
  a,b,c: array[1..100] of integer;
  i,n,k1,k2: integer;
Begin
  randomize;
  readln(n);
  for i:=1 to n do
    begin
      a[i]:=random(100)-50;
      write(a[i]:4);
      if odd(i)=false then
        begin
          inc(k1);
          b[k1]:=a[i];
        end
        else begin
          inc(k2);
          c[k2]:=a[i];
        end;
    end;
  writeln;
  for i:=1 to k1 do
    write(b[i]:4);
  writeln;
  for i:=1 to k2 do
    write(c[i]:4);
  readln
End.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

a, b, c: array[1..100] of integer;
i, n, k1, k2: integer; Переменная a предназначена для хранения случайно сгенерированных чисел от 0 до 99. Переменная n используется для считывания числа, на которое будет разбита задача. Переменная i используется для итерации по элементам массива a. Переменная k1 и k2 используются для хранения индексов элементов массива b и c соответственно. В цикле for i:=1 to n do выполняется следующая последовательность действий:
1. Генерируется случайное число от 0 до 99 и присваивается переменной a[i].
2. Выводится значение a[i].
3. Проверяется, является ли номер элемента i нечетным.
4. Если номер элемента i нечетный, то значение a[i] присваивается переменной b[k1].
5. Если номер элемента i четный, то значение a[i] присваивается переменной c[k2].
6. Значение a[i] выводится на экран. После завершения цикла for i:=1 to n do выполняется вывод значений массива b и c. Затем считывается новое значение переменной n и цикл повторяется.