Решить в паскале авc/линейные массивы.№4 вставка. в линейный массив целых чисел на 7-е место вставить число равное квадрату первого элемента.№5. преобразование. дан массив из четного числа элементов. поменять местами его половины

№5 const n=10; var a: array [1..n]of integer; i,r: integer; begin     cls;     for i: =1 to n do read(a[i]);     for i: =1 to(n div 2)do       begin           r: =a[i];           a[i]: =a[i+(n div 2)];           a[i+(n div 2)]: =r;       end;     for i: =1 to n do write(a[i]: 3); end.

#include <iostream>

using namespace std;

void sortArray(int *arr) {

   int tmp;

   for (int i = 0; i < 4; i++) {

       for (int j = 0; j < 4 - 1; j++) {

           if (arr[j] > arr[j + 1]) {

               tmp = arr[j];

               arr[j] = arr[j + 1];

               arr[j + 1] = tmp;

           }

       }

   }

   for (int i = 0; i < 4; ++i) {

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

   }

}

int main() {

   setlocale(LC_ALL, "Russian");

   int* data = new int[4];

   cout << "Введите числа: " << endl;

   for (int i = 0; i < 4; ++i) {

       cin >> data[i];

   }

   sortArray(data);

}

Объяснение:

Код на с++

'microsoft qbasic cls for a = 1 to 9 for b = 0 to 9 for c = 0 to 9 for d = 1 to 9     n1 = 1000 * a + 100 * b + 10 * c + d     n2 = 10 * a + c     n3 = 10 * d + b     if n1 = n2 * n3 * 4 then           print a; b; c; d; " = "; a; c; " * "; d; b; " * 4"     end if next d next c next b next a результат выполнения программы:   1  9  7  2  =  1  7  *  2  9  * 4   5  4  7  2  =  5  7  *  2  4  * 4   8  6  3  2  =  8  3  *  2  6  * 4