Program ReversMassiv;
Uses CRT;
Const n = 10;
Var a: Array[1..n] of byte;
     i: Byte;
     k: Byte;
Begin
ClrScr;
Randomize;
Writeln('Massiv do');
For i := 1 to n do
     Begin
     a[i] := Random(10);
     Write(a[i]:3);
     End;
For i := 1 to (n div 2) do
     Begin
     k := a[i];
     a[i] := a[n-i+1];
     a[n-i+1] := k;
     End;
Writeln(#13#10#13#10,'... i posle perevorota');
For i := 1 to n do
     Begin
     Write(a[i]:3);
     End;
ReadKey;
End.