Помощь - Поиск - Пользователи - Календарь
Полная версия: Массивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.