Дан одномерный массив. Заменить минимальный элемент нулём

Question

Информатика

Косма

15 января, 11:21

Дан одномерный массив. Заменить минимальный элемент нулём

+3

Ответы (1)

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

Ника · Answer 1

Var

a:array[1 ... 10000] of integer;

i, n, min:integer;

begin

writeln ('Кол-во элементов массива') ;

readln (n) ;

for i:=1 to n do

read (a[i]) ;

min:=1;

for i:=2 to n do

if a[min]>a[i] then

min:=i;

a[min]:=0;

for i:=1 to n do

write (a[i],' ') ;

end.