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

min:=аk:=1j:=1for i:=2 to n doif a[i]< min thenbeginmin:=a[i]k:=iendif k>1 thenfor i:=k to n dobegina[j]:=a[i]inc(j)endwriteln(результат)for i= 1 to n-k+1 dowrite(a[i]:3);шт