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.