массивы

[Аннаю]

Помогиет пожалуйста ссоставить программу обработки массива данных.Совершить сортирование массива методом постепенного поиска и бульмашкивым.Результат вывести на экран .
1.сформировать одновымерный массив целых чисел,используя генератор случайных чисел.
2. распечатать полученный массив
3.удалить все элементы с заданным значением.
4. прибавить перед каждым парным элементом массива элмент со значением 0.
5. распечатать полученный массив.
Буде очень блгодарна, зараннее спасибо)

[olej.tsil]

Сообщение от Аннаю

Помогиет пожалуйста ссоставить программу обработки массива данных.

На каком языке программирования?

Сообщение от Аннаю

Совершить сортирование массива методом постепенного поиска и бульмашкивым.

Сообщение от Аннаю

1.сформировать одновымерный массив целых чисел,используя генератор случайных чисел.
2. распечатать полученный массив
3.удалить все элементы с заданным значением.
4. прибавить перед каждым парным элементом массива элмент со значением 0.
5. распечатать полученный массив.

Как 1-е (сортировка) соотносится со 2-м (какая-то последовательность ручных манипуляций)?
И что это за такая фамилия "бульмашкив"???

Сообщение от Аннаю

Буде очень блгодарна, зараннее спасибо)

Это, наверное, пишет не русский человек?
Тогда попробуйте тщательнее и не спеша описать свою задачу.

[Son Of Pain]

Сообщение от olej.tsil

И что это за такая фамилия "бульмашкив"???

Пузырьковая сортировка

[olej.tsil]

Сообщение от Son Of Pain

Пузырьковая сортировка

Так какая может быть пузырьковая сортировка ... или любая другая сортировка, если сразу же ниже описываются какие-то ручные манипуляции с массивом?

Или это воедино свалены сразу 2 разных задачи?

[newerow1989]

Совершить сортирование массива методом ... бульмашкивым

Я лучше методом Неверова сделаю...

одновымерный массив

Грамотные студенты пошли...

var p:array of integer;
    i,j,n,len:integer;
    d:boolean;
begin
   Randomize;
   len:=5+Random(15);
   SetLength(p,len);
   For i:=0 to len-1 do
   begin
      p[i]:=Random(21);
      Write(p[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   Write('delete = ');Readln(n);
   For i:=0 to len-1 do
      If p[i]=n then
      begin
         For j:=i to len-2 do
            p[j]:=p[j+1];
         len:=len-1;
         SetLength(p,len);
      end;
   For i:=Low(p) to High(p) do
      Write(p[i]:2,'  ');
   Writeln;
   Writeln;
   For i:=len-2 downto 0 do
      If p[i]=p[i+1] then
      begin
         len:=len+1;
         SetLength(p,len);
         For j:=len-1 downto i+1 do
            p[j]:=p[j-1];
         p[i]:=0;
      end;
   For i:=Low(p) to High(p) do
      Write(p[i]:2,'  ');
   Writeln;
   Writeln;
   Repeat
      d:=true;
      For i:=0 to len-2 do
         If p[i]>p[i+1] then
         begin
            d:=false;
            n:=p[i];
            p[i]:=p[i+1];
            p[i+1]:=n;
         end;
   Until d;
   For i:=Low(p) to High(p) do
      Write(p[i]:2,'  ');
   Writeln;
   Readln;
end.