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

Question

Информатика

Мартимьян

17 ноября, 12:09

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

+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) ; шт