{
Online Pascal Compiler.
Code, Compile, Run and Debug Pascal program online.
Write your code in this editor and press "Run" button to execute it.
}
program Ex;
const
N = 10;
var
a: array [1..N] of integer;
i, j, k, k1, min, max: integer;
begin
randomize;
for i := 1 to N do a[i] := Random(100);
writeln('Элементы массива a: ');
for i := 1 to N do write(a[i], ' ');
writeln;
for i :=1 to (N div 2) do
begin
min := i;
max := N+1-i;
for j := i to N+1-i do
if a[j]<=a[min] then min:=j else
if a[j]>a[max] then max:=j;
k:=a[min];k1:=a[max];
a[min]:=a[i];a[i]:=k;
a[max]:=a[N+1-i];a[N+1-i]:=k1;
end;
writeln;
for i := 1 to N do write(a[i], ' ')
end.