program ideone;
 
const
nmax = 100;
 
var
A: array[1..nmax] of integer;
i, imin, n: byte;
 
begin
repeat
write('Введите к-во еле-в < ', nmax, ': ');
readln(n);
until n in [1..nmax];
Randomize;
for i := 1 to n do
begin
A[i] := random(10) - 5;
write(A[i]:4);
end;
writeln;
imin := 1;
for i := 2 to n do
   if A[i] < A[imin] then imin := i;
writeln('Min = ', A[imin]);
dec(n);
for i := imin to n do
   A[i] := A[i + 1];
for i := 1 to n do
   write(A[i]:4);
end.

cHJvZ3JhbSBpZGVvbmU7Cgpjb25zdApubWF4ID0gMTAwOwoKdmFyCkE6IGFycmF5WzEuLm5tYXhdIG9mIGludGVnZXI7CmksIGltaW4sIG46IGJ5dGU7CgpiZWdpbgpyZXBlYXQKd3JpdGUoJ9CS0LLQtdC00LjRgtC1INC6LdCy0L4g0LXQu9C1LdCyIDwgJywgbm1heCwgJzogJyk7CnJlYWRsbihuKTsKdW50aWwgbiBpbiBbMS4ubm1heF07ClJhbmRvbWl6ZTsKZm9yIGkgOj0gMSB0byBuIGRvCmJlZ2luCkFbaV0gOj0gcmFuZG9tKDEwKSAtIDU7CndyaXRlKEFbaV06NCk7CmVuZDsKd3JpdGVsbjsKaW1pbiA6PSAxOwpmb3IgaSA6PSAyIHRvIG4gZG8KICAgaWYgQVtpXSA8IEFbaW1pbl0gdGhlbiBpbWluIDo9IGk7CndyaXRlbG4oJ01pbiA9ICcsIEFbaW1pbl0pOwpkZWMobik7CmZvciBpIDo9IGltaW4gdG8gbiBkbwogICBBW2ldIDo9IEFbaSArIDFdOwpmb3IgaSA6PSAxIHRvIG4gZG8KICAgd3JpdGUoQVtpXTo0KTsKZW5kLg==

Nw==

7