Сожмите линейный массив, удалив элементы предшествующие минимальному элементу.

Question

Информатика

Любава

8 августа, 01:02

Сожмите линейный массив, удалив элементы предшествующие минимальному элементу.

+5

Ответы (1)

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

Катюра · Answer 1

Min:=а

k:=1

j:=1

for i:=2 to n do

if a[i]< min then

begin

min:=a[i]

k:=i

end

if k>1 then

for i:=k to n do

begin

a[j]:=a[i]

inc (j)

end

writeln (результат)

for i = 1 to n-k+1 do

write (a[i]:3) ; шт