Нужна программа на турбо два одномерных массива а, в длиной n, где n- нечетное число. поменять в каждом из массивов элементы местами – первый с последним, второй с предпоследним и т.д. длину массивов запросить у пользователя. элементы массивов а и в сформировать с функции random (10) в одном цикле. в программе оформить две процедуры: для перестановки элементов массива и для вывода массива на экран. вывести на чистый экран исходные и полученные массивы.

Uses crt; const     nn=100; type     mas=array[1..nn] of integer; procedure myswap(var a: mas; n: integer); var     i,t: integer; begin     for i: =1 to n div 2 do begin           t: =a[i]; a[i]: =a[n-i+1]; a[n-i+1]: =t           end end; procedure myprint(txt: string; a: mas; n: integer); var     i: integer; begin     write(txt);     for i: =1 to n do write(a[i],' ');     writeln end; var     i,n: integer;     a,b: mas; begin     clrscr;     write('n='); readln(n);     clrscr;     randomize;     for i: =1 to n do begin           a[i]: =random(10);           b[i]: =random(10)           end;     myprint('исходный а : ',a,n);     myswap(a,n);     myprint('результат а: ',a,n);     myprint('исходный b : ',b,n);     myswap(b,n);     myprint('результат b: ',b,n);     readkey end.

документ, состоящий из частей с разнообразным представлением информации (текст, звук, графика, трехмерные объекты и т. д.), в котором каждый элемент может являться ссылкой на другой документ или его часть