Вопрос, который вызвал трудности
Дан одномерный массив значения элементов которого вводят с клавиатуры. Найти наименьший элемент массива и вывести новый массив, заполнив его данным значением.
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так: Дан одномерный массив значения элементов которого вводят с клавиатуры. Найти наименьший элемент массива и вывести новый массив, заполнив его данным значением.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
// Внимание! Если программа не работает, обновите версию!
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
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]WriteLn('Min(A) = A[',Min,'] = ',A[Min]);
For i:= 1 to N do
Begin
A[i]:=A[Min];
Write(A[i],' ')
End
End.