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

Question

Информатика

Дарьюшка

3 декабря, 15:03

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

+4

Ответы (1)

Знаете ответ на вопрос?

Офелия · 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]
WriteLn ('Min (A) = A[', Min,'] = ', A[Min]) ;

For i: = 1 to N do

Begin

A[i]:=A[Min];

Write (A[i],' ')

End

End.