Заполнить массив случайными числами в интервале [1000; 2000) и подсчитать число элементов у которых вторая с конца цифра четная.

var a: array [1..100] of integer;

i,n: integer;

s: string;

begin

  randomize;

  for i : =1 to 100 do

  begin

      a[i]: = random(1000)+1000;

      a[i]: =a[i] mod 100;

      a[i]: =a[i] div 10;

      if a[i] mod 2 = 0 then n=n+1;

  end;

 

  writeln(n);

end.

(пока я писал ход мыслей в решении о камнях, вопрос удалили. но, чтоб ответ не пропал, вставлю сюда - больше ведь некуда, личных сообщений на ответах не предусмотрено.)

в общем, я вижу так: камни укладываем в 2 ряда

n

n n n

где нам неизвестно число n. а всех камней будет 4n.

если число всех клеток m, то в одном ряду их m/2.

3n < = m/2 (три эн меньше или равно эм, деленное на 2).

для m=10 подходит только n=1, так как 2 - уже много.

ну, а для m=100 сами поймете, что получится.

в итоге проста, как только ее представить в общем виде.

дан ряд чисел:

1 2 3 4 5 6 7 8 9 10 11

рассмотрим наихудший вариант попадания

1. говорим цифру 2, в ответ ничего не слышим, соответственно в 1 и 3 тоже ничего нет

2. говорим цифру 5, в ответ ничего   не слышим, соответственно в 4 и 6 тоже ничего нет

3. говорим цифру 8, в ответ ничего   не слышим, соответственно в 7 и 9 тоже ничего нет

4. говорим цифру 10, в ответ слышим "попал" или "почти попал", и сразу становится понятно, где цифра.

если слышим раньше "попал", то на этом останавливаемся.

если слышим раньше "почти попал", то стреляем в соседнюю, и если попадаем, то цепочка прекращается, если ничего не слышим, то будет число, которое мы не называли.

ответ: 4 - наименьшее количество чисел при худшем раскладе.