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