Сразвёрнутым ответом. какое количество информации при игре в крестики-нолики на поле размером 4х4 клетки получит второй игрок после первого хода первого игрока? p.s. всего 16 клеточек.

1)4*4=12 вариантов событий
2)2*2*2*2=16 двоек
ответ: 4 бит.

Алгоритм сортировки выбором:

void choicesSort(int* arrayPtr, int length_array) // сортировка выбором
{    
    for (int repeat_counter = 0; repeat_counter < length_array; repeat_counter++)
    {
        int temp = arrayPtr[0]; // временная переменная для хранения значения перестановки
        for (int element_counter = repeat_counter + 1; element_counter < length_array; element_counter++)
        {
            if (arrayPtr[repeat_counter] > arrayPtr[element_counter])
            {
                temp = arrayPtr[repeat_counter];
                arrayPtr[repeat_counter] = arrayPtr[element_counter];
                arrayPtr[element_counter] = temp;
            }
        }
    }
}

UPD: Под Ваш конкретный случай. Попробуйте этот код:

1)
var a:array[1..10] of integer;
i,n:integer;
begin
n:=0;
write ('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
if i mod 2 <> 0 then n:=n+a[i];
end;
for i:=1 to 10 do
begin
write (a[i],' ');
end;
writeln;
writeln ('Сумма элементов стоящих на нечётных местах = ',n);
end.

2)
var a:array[0..10] of integer;
i,n:integer;
begin
n:=0;
write ('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(10);
write (a[i],' ');
end;
repeat
i:=1;
if (a[i] mod 2 = 0) and (a[i-1] mod 2 =0) then n:=1;
i:=i+1;
until n=1;
WRITELN;
if n<>0 then writeln ('Есть') else writeln ('Нету');
end.