Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Массивы

Автор: AnTiDoD 4.01.2007 0:19

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

Автор: arhimag 4.01.2007 1:01

Код

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.