program ReplaceMinWithMax;
var
arr: array[1..30] of integer;
i, minVal, maxVal, minCount: integer;
begin
minCount := 0;

// вводим элементы массива
for i := 1 to 30 do
begin
readln(arr[i]);
end;

// находим минимальное и максимальное значение в массиве
minVal := arr[1];
maxVal := arr[1];
for i := 2 to 30 do
begin
if arr[i] < minVal then
minVal := arr[i]
else if arr[i] > maxVal then
maxVal := arr[i];
end;

// считаем количество минимальных значений
for i := 1 to 30 do
begin
if arr[i] = minVal then
minCount := minCount + 1;
end;

// заменяем все минимальные значения на максимальное
for i := 1 to 30 do
begin
if arr[i] = minVal then
arr[i] := maxVal;
writeln(arr[i]);
end;
end.