[Fan4iG]

Дана последовательность целых чисел. Вывести упорядоченную по возрастанию последовательность, состоящую из чисел данной последовательности, стоящих на четных местах. Использовать пузырьковую сортировку

[Bargest]

сначала делаешь так:

Код:

for i:=1 to n div 2 do
 b[i]:=a[i*2];

А потом запускаешь по массиву B пузырьковую сортировку. Этого полно в гугле на всех существующих языках.

[Fan4iG]

У меня такая ситуация... я перевёлся в институт 2 года назад сейчас на 4... нам сказали вспомнить делфи а мы учили паскаль и то на 1 немоглибы вы написать полный код если норм понимаете.. просто я и так не шибко соображал а сейчас так подавно...

[Bargest]

Создаешь консольный проект.

Код:

program project1;

{$APPTYPE CONSOLE} //как-то так, не помню точно. Делфа сама напишет.

uses sysutils;

var a,b:array[1..100]of integer;//real,extended... Зависит от того какие числа
     i,j,n:integer;
     temp:integer;//real, extended...

begin
 writeln('Write N');
 readln(n);
 writeln('Enumerate elements:');
 for i:=1 to n do
   readln(a[i]);
 
 for i:=1 to n div 2 do
   b[i]:=a[i*2];

 for i:=1 to n do
  for j:=1 to n do
   if b[i]>b[j] then
   begin
    temp:=b[j];
    b[j]:=b[i];
    b[i]:=temp;
   end;
  
 for i:=1 to n do
  write(b[i],' ');
end.

Как-то так. Тот же самый паскаль.