Массивы, Сжатие. Опции

[AnTiDoD]

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

[arhimag]

Код

var arr : array [1..100] of integer;
var min, i, n : integer;
begin
read(n);
for i:= 1 to n do read(arr[i]);
min:=1;
for i:=1 to n do
if arr[min]>arr[i] then min:=i;
for i:=min to n do
arr[i-min+1]:=arr[i];
n:=n-min+1;
for i:=1 to n do write(arr[i]);
readln;
readln;
end.

Сообщение отредактировано: arhimag - 4.01.2007 1:01