с написание программы CИ (C комментариями Дан массив целых чисел размерности n (n вводится с клавиатуры случае, если элементы, стоящие на нечетных индексах образуютвозрастающую последовательность, получить среднее арифметическое четных элементов, иначе – количество положительных элементов.

#include<iostream>

#include<ctime>

#include<iomanip>

using namespace std;

void FillArray(int*& arr, int size)

{

for (int i = 0; i < size; i++)

{

 arr[i] = rand() % 100;

}

}

void ShowArray(int*& arr, int size)

{

for (int i = 0; i < size; i++)

{

 cout << arr[i] << "  ";

}

cout << endl << endl;

}

bool CheckArray(int*& arr, int size, int& sum, int& k, int& ki)

{

bool incSeq = 1;

for (int i = 0; i < size; i++)

{

 if (arr[i] % 2 == 0)

 {

  sum += arr[i];

  ki++;

 }

 if (arr[i] > 0)

 {

  k++;

 }

}

for (int i = 1; i < size; i += 2)

{

 if (arr[i] > arr[i + 2])

 {

  incSeq = 0;

  break;

 }

}

return incSeq;

}

int main()

{

srand(time(0));

setlocale(LC_ALL, "ru");

int sum = 0;

int k = 0;

int ki = 0;

int size = 0;

cout << "Укажите размер массива - ";

cin >> size;

int* arr = new int[size];

FillArray(arr, size);

ShowArray(arr, size);

CheckArray(arr, size, sum, k, ki);

if (CheckArray)

{

 cout << "\n\nСредне арифметическое равно  " << fixed << setw(6) << setprecision(2) << (double)(sum / ki);

}

else

{

 cout << "\n\nКол-во чет. эл-ов\n\n - " << k;

}

delete[]arr;

}

Объяснение:

1. 2 Массивы объявляются тем же оператором, что и обычные переменные
2. Не корректный вопрос: индекс - это обращения к определенному элементу массива, а у самого массива индекса нет. В вариантах ответа ничего похожего на это нет.
3. 4 Массивы заполняются теми же операторами, что и обычные переменные
4. 1 Есть такой ввода в бейсике - конструкция READ DATA
5. 1 Выведется четвертый элемент массива, т.к. нумерация идет с нуля, и первый имеет номер 0, второй - 1, третий - 2, а четвертый - номер 3, который и запрашивается в выражении А(3)

var
  s: string;
  i, j, n: integer;
  c: char;
  flag: boolean;

begin
  Write('Введите произвольное число: '); Readln(s);
  flag := false;
  n := length(s);
  i := 1;
  while (i <= n) and (not flag) do
  begin
    c := s[i];
    j := i + 1;
    while (j <= n) and (not flag) do
      if s[j] = c then flag := true else j := j + 1;
    if (not flag) then i := i + 1
  end;
  if flag then Writeln('Символ "', c, '" встречается больше одного раза')
  else Writeln('Все символы уникальны')
end.

Тестовое решение:
Введите произвольное число: -1453.5462
Символ "4" встречается больше одного раза