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

Question

Информатика

Линя

24 октября, 02:43

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

+5

Ответы (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.