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==