Два игрока играют в крестики-нолики на клетчатом поле 5x5 клеток. какое количество информации при этой игре получит второй игрок после третьего хода первого игрока? 1. 15 байт 2. 25 бит 3. 15 бит 4. 5 бит

Если крестик равен 1, а нолик и пустая клетка 0, то второй игрок получит 5 бит информации, после третьего хода первого.

Можно.

А вообще, это вопрос религии, как инициализировать в данном случае минимальный элемент. Можно как автор, поскольку "Элементы массива могут принимать целые значения от 0 до 1000", т.е. берется заведомо больший. Можно проинициализировать это значение максимальным значением в типе (min := MaxInt;), а можно как и вы, предположить, что первый элемент массива является минимальным и начинать сравнивать его с остальными. Тем более, что "Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого чётно и не кратно трем.", т.е. выбранное первоначально значение будет заменено другим, если m[1] таковым не является

1) 

var X:array[12] of real;

i: integer;

 

begin

   for i:=1 to 12 do

   begin

      readln(X[i]);

      X[i]:=X[i]-23;

   end;

   for i:=1 to 12 do

      writeln(X[i])

end.

2)

var M:array[100] of integer;

i: integer;

begin

   for i:=1 to 100 do begin

      readln(M[i]);

       if(M[i] mod 2=0) then M[i]:=M[i]*M[i]

       else  M[i]=2*M[i];

   end;   

   for i:=1 to 100 do

      writeln(M[i]);

end.

3)

var price:array[20] of real;

i:integer;

minprice:real;

begin

   minprice:=10000;

   for i:=1 to 20 do

   begin

      readln(price[i]);

      if (price[i]<minprice) then minprice:=price[i];

   end;

   writeln(minprice)

end.

4) 

var M:array[100] of integer;

i, counter: integer;

begin

   readln(M[1]);

   counter:=0;

   for i:=2 to 100 do begin

      readln(M[i]);

      if ((M[i] mod 2=1) and (M[i-1] mod 2=1)) then inc(counter);

   end;

   writeln(counter)

end.