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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.