Простенькая задача с массивами, Кто может помочь хотя бы объясните Опции

[Витёк]

Люди помогите пожалуйста в решении задачи. Условие такое: дан массив, нужно найти минимальный элемент и удалить его. Я смог найти минимальный элемент вот так:

 
const n =5;
type
list=1..n;
var i:list;
min:integer;
a:array[list] of integer;
begin
for i:=1 to n do
begin
writeln('введите',i);
readln(a[i]);end;
min=a[i];
for i:=2 to n do
begin
if a[i]<min then min:=a[i];end;
writeln(min);
end.

но не смог удалить его и вывести все остальные элементы. Подскажите как это сделать

Сообщение отредактировано: Витёк - 27.11.2006 19:31

[мисс_граффити]

удаление у тебя будет сводится к тому, что каждый из элементов, стоящих после твоего найденного, надо будет сдвинуть на один вперед.
чтобы этого добиться, тебе надо запоминать не только чему равен сам минимальный элемент, но и его индекс.

[Витёк]

удаление у тебя будет сводится к тому, что каждый из элементов, стоящих после твоего найденного, надо будет сдвинуть на один вперед.
чтобы этого добиться, тебе надо запоминать не только чему равен сам минимальный элемент, но и его индекс.

Что-то не соображу, как это в программе сделать