const
  N = 5;
var
  Arr: array[1..N] of real;
  Min: real;
  i, number, Min_i: integer;
Begin
  WriteLn('Введите массив из ', N, ' элементов');
  
  For i := 1 to N do 
    Read(Arr[i]);
  
  Write('Введите номер элемента: ');
  ReadLn(number);
  
  if ((number > N) or (number < 1)) then
  begin
    WriteLn('Номер должны быть от 1 до ', N);
    exit;
  end;
  
  // Находим минимум
  Min_i := 1;
  
  For i := 1 to number do
    if (Arr[i] < Arr[Min_i]) then
      Min_i := i;
  
  // Меняем минимум с последним элементом
  Min := Arr[Min_i];
  Arr[Min_i] := Arr[N];
  Arr[N] := Min;
  
  // Делим все элементы на минимум
  For i := 1 to N do
    Arr[i] := Arr[i] / Min;
    
  // Выводим получившийся массив
  For i := 1 to N do
    Write(Arr[i], ' ');
End.