Программы на Питоне, решающие следующие задачи.

Const
n=5

var

a:array[1..n] of integer; //создали одномерный массив длинной 5
b:array[1..n,1..n] of integer; //создали двумерный массив 5х5
i,j:integer; //i,j- счетчик

begin
 
 for i:=1 to n do
  for j:=1 to n do
   b[i,j]:=random(10)+1; {задали массив случайными числами в диапазоне от 1 до 10}
 
 for i:=1 to n do
   begin
    a[i]:=b[i,i]; //присваиваем i-ому элементу массива элемент i-i.
   end; //То есть 1-ому, 1-1, 2-ому 2-2. Это и есть главная диагональ.

{вывод двумерного массива на всякий случай:
 for i:=1 to n do
  begin
  for j:=1 to n do
   begin
    write(b[i,j],' ');
   end;
  writeln("");
  end; }

For i:=1 to n do
 write(a[i]," ");

readln();
end.

#include <iostream>
#include <vector>
using namespace std;

int main() {
    unsigned short int n;
    cout << "n = ";
    cin >> n;
    vector<int> a;
    int in,
        avg,
        s = 0,
        c = 0;
    for (int i = 0; i < n; ++i) {
        cout << "a[" << i << "] = ";
        cin >> in;
        a.insert(a.end(), in);
        if (i % 2 == 1) {
            s += a.back();
            c++;
        }
    }
    avg = (int) s / c;
    cout << "Среднее арифметическое элементов на нечётных позициях: "
         << avg;
    return 0;
}