Ввести одномерный массив a, в котором число элементов кратно трём, вывести его. разбить массив на три равные части, каждую из которых отсортировать по возрастанию.

Const n=10; var a: array[1..n] of integer; i,k,j: integer; begin randomize;     for i: =1 to n do            begin            a[i]: =random(10);             write(a[i],' ');       end;             writeln;         for i: =1 to n do             begin               if a[i] mod 3=0 then                 write(a[i],' ');         end;                         for i: =1 to n-1 do         for j: =1 to n-i do             begin                 if (a[j] > a[j+1]) then                     begin                         k: = a[j];                         a[j] : = a[j+1];                         a[j+1] : = k;                     end;                     end;                                             writeln;                             for i: =1 to n do          write(a[i],' ');         readln;         end.

А) 2048×8 б) 1.5×1024 в) 26 байт - 0,02 кбайт г) 1024×4 - 1024×4×8