Работа с упорядоченным массивом Опции

[Райдер]

ребят, такая же фигня. в Паскале надо решить такую задачу:

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

Завтра в универе будет грустно без этой задачи. А в Паскале и вообще в программировании не понимаю НИЧЕГО. вообще дуб дубом. задача то наверное для вас детская, но кто поможет тому МЕГА респект и спасибо! :molitva: :molitva: :molitva:

Добавлено (21.12.04 9:55):
сорри, забыл, массив одномерный.

[mithquessir]

klem4
Вообще-то элемент нужно было вставить, а не заменять. :yes:

Код

const
 n = 5;
 a:array[1..n+1] of integer = (1,2,3,4,5,0);
var
 new,i,pos:integer;
begin
 WriteLn('Введите индекс вставляемого элемента');
 ReadLn(pos);
 WriteLn('Введите вставляемый элемент');
 ReadLn(new);
 for i := n+1 downto pos do
   a[i] := a[i-1];
 a[pos] := new;
 for i := 1 to n+1 do
   Write(a[i]:2);
end.