// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(12,-12,12); a.Println;
var b:=a.Batch(a.Length div 3).Select(x->x.Reverse);
var k:=0;
foreach var e1 in b do
foreach var e2 in e1 do begin a[k]:=e2; Inc(k) end;
a.Println
end.
<u><em>Тестовое решение:</em></u>
-7 -9 8 -11 -5 -3 -2 6 11 -7 4 -6
-11 8 -9 -7 6 -2 -3 -5 -6 4 -7 11
#include <iostream>
#include<conio.h>
using namespace std;
<span>void main() </span>
{
setlocale(0, "");
<span> int n; cout << "Введите количество аудиторий" << endl;cin >> n; </span>
<span>int* aud = new int[n]; </span>
<span>cout << endl << "Введите их вместимость" << endl; </span>
<span>for (int i = 0;i < n;++i) </span>
<span> cin >> aud[i]; </span>
int max = aud[0];
<span>int max_i = 0; </span>
<span>for (int i = 0;i < n;++i) </span>
{
<span> if (aud[i] > max) </span>
{
<span> max = aud[i]; </span>
<span> max_i = i; </span>
<span> } </span>
<span> } </span>
<span>cout << "Самая большая из них: " << max_i + 1 << " Вмещает: " << max << " человек. " << endl; </span>
_getch();
<span>}</span>
32 буквы и 10 цифр=42 знака