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

создаём массив

выделяем переменную которая посчитает количество элементов в массиве (например а)

находим минимальное значение в массиве

(сохраняем порядковый номер элемента в памяти) выделяя под него переменную (например b)

создаём ещё один одномерный массив с количеством элементов (a - b)

копируем все элементы первого массива от b до a во второй массив

заменяем первоначальный массив вторым а затем удаляем не нужную информацию.

Паскаль.

uses crt;

var a:array [1 ... 100] of real;

i, j, n, min:integer;

begin

clrscr;

write (' ... '); read (n);

for i:=1 to n do

begin

a[i]:=random (100);

write (a[i],' ');

end;

min:=1;

writeln;

for i:=1 to n do

if a[i]
for i:=min to n do

begin

inc (j);

a[j]:=a[i];

end;

for i:=1 to j do

write (a[i],' ');

end.