Question

Дан одномерный массив значения элементов которого вводят с клавиатуры. Найти наименьший элемент массива и вывести новый массив, заполнив его данным значением.

Answer 1

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,Min:integer;
Begin
Write('Заполните массив A(',N,'): ');
For i:= 1 to N do
    Read(A[i]);
Min:=1;
For i:= 2 to N do
    if A[i]<A[Min] then Min:=i;
WriteLn('Min(A) = A[',Min,'] = ',A[Min]);
For i:= 1 to N do
    Begin
    A[i]:=A[Min];
    Write(A[i],' ')
    End
End.

Answer 2

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
  var m:=a.Min;
  a.Transform(x->m); a.Println
end.

Пример
n= 5
Вводите: 13 8 -4 0 7
-4 -4 -4 -4 -4

Answer 3

Конечно, я могу помочь с написанием кода на некотором языке программирования. Вот пример на языке Python:

# Получаем от пользователя размер массива
n = int(input("Введите размер массива: "))

# Инициализируем массив и заполняем его значениями, введенными с клавиатуры
array = []
for i in range(n):
    element = int(input(f"Введите элемент массива {i + 1}: "))
    array.append(element)

# Находим минимальный элемент массива
min_element = min(array)

# Создаем новый массив, заполняя его минимальным значением
new_array = [min_element] * n

# Выводим исходный массив
print("Исходный массив:", array)

# Выводим новый массив
print("Новый массив с минимальным элементом:", new_array)

Этот код запрашивает у пользователя размер массива, затем заполняет массив значениями, введенными с клавиатуры. После этого находит минимальный элемент в массиве и создает новый массив, заполняя его этим минимальным значением. В конце программа выводит исходный и новый массивы.

Вы можете адаптировать этот код под нужный вам язык программирования или дать мне знать, если у вас есть предпочтения по языку.