const
N = 20;
var
i, min, max: byte;
sum, tmp: integer;
mas: array [1..N] of integer;
begin
randomize();
writeln('Vhodnoy massiv:');
for i:= 1 to N do
begin
mas[i]:= random(100);
write(mas[i]:3);
end;
min:= mas[1];
max:= mas[1];
sum:= mas[1];
for i:= 2 to N do
begin
if mas[i]> max then max:= mas[i];
if mas[i]< min then min:= mas[i];
sum:= sum + mas[i];
end;
writeln;
writeln('min = ', min);
writeln('max = ', max);
writeln('summa = ', sum);
for i:= 1 to (N+1) div 2 do
begin
tmp:= mas[i];
mas[i]:= mas[N-i+1];
mas[N-i+1]:= tmp;
end;
writeln('Obratniy massiv:');
for i:= 1 to N do write(mas[i]:3);
readln;
end.