program ArrayAfterMin;
var
  A, B: array[1..15] of integer;
  i, minIndex, BLength: integer;
begin
  Randomize;
  writeln('Масив A:');
  for i := 1 to 15 do
  begin
    A[i] := Random(201) - 100; // від -100 до 100
    write(A[i], ' ');
  end;
  writeln;
 
  minIndex := 1;
  for i := 2 to 15 do
    if A[i] < A[minIndex] then
      minIndex := i;
 
  BLength := 1;
  B[BLength] := A[minIndex];
 
  for i := minIndex + 1 to 15 do
  begin
    BLength := BLength + 1;
    B[BLength] := A[i];
  end;
 
  writeln('Масив B:');
  for i := 1 to BLength do
    write(B[i], ' ');
end.
 

cHJvZ3JhbSBBcnJheUFmdGVyTWluOwp2YXIKICBBLCBCOiBhcnJheVsxLi4xNV0gb2YgaW50ZWdlcjsKICBpLCBtaW5JbmRleCwgQkxlbmd0aDogaW50ZWdlcjsKYmVnaW4KICBSYW5kb21pemU7CiAgd3JpdGVsbign0JzQsNGB0LjQsiBBOicpOwogIGZvciBpIDo9IDEgdG8gMTUgZG8KICBiZWdpbgogICAgQVtpXSA6PSBSYW5kb20oMjAxKSAtIDEwMDsgLy8g0LLRltC0IC0xMDAg0LTQviAxMDAKICAgIHdyaXRlKEFbaV0sICcgJyk7CiAgZW5kOwogIHdyaXRlbG47CgogIG1pbkluZGV4IDo9IDE7CiAgZm9yIGkgOj0gMiB0byAxNSBkbwogICAgaWYgQVtpXSA8IEFbbWluSW5kZXhdIHRoZW4KICAgICAgbWluSW5kZXggOj0gaTsKCiAgQkxlbmd0aCA6PSAxOwogIEJbQkxlbmd0aF0gOj0gQVttaW5JbmRleF07CgogIGZvciBpIDo9IG1pbkluZGV4ICsgMSB0byAxNSBkbwogIGJlZ2luCiAgICBCTGVuZ3RoIDo9IEJMZW5ndGggKyAxOwogICAgQltCTGVuZ3RoXSA6PSBBW2ldOwogIGVuZDsKCiAgd3JpdGVsbign0JzQsNGB0LjQsiBCOicpOwogIGZvciBpIDo9IDEgdG8gQkxlbmd0aCBkbwogICAgd3JpdGUoQltpXSwgJyAnKTsKZW5kLgo=