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

[Райдер]

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

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

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

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

[klem4]

Может я конечно чо-то не понимаю, но у тебя пропадает один из элементов в конце, тебе не кажется ? :D

По моему правильнее так :

Код

uses crt;
const n=6;
var x:array[1..n] of integer;
   i,new,newi,p:integer;

Begin
  clrscr;
  randomize;
  for i:=1 to n-1 do
   begin
      x[i]:=random(6);
      write(x[i]);
      write(' ');
   end;
   writeln;
   readln(newi);
   writeln;
   readln(new);
   writeln;

   for i:=n downto new do
    begin
       p:=x[i-1];
       x[i]:=p;
    end;
    x[newi]:=new;

   writeln;
   for i:=1 to n do
    begin
       write(x[i]);
       write(' ');
    end;

   readln;
   end.