Дан фрагмент электронной таблицы. Какое число должно быть записано в ячейке В1, чтобы построенная после выполнения вычислений диаграмма по значениям диапазона ячеек А2:С2 соответствовала рисунку? Известно, что все значения диапазона имеют один и тот же знак.

Const
  n = 20;

var
  T: array[1..n] of integer;
  i, k: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  k := 0;
  for i := 1 to n do
  begin
    T[i] := Random(11)-5;
    Write(T[i]:3);
    if ((i mod 2)<>0) and (T[i]=0) then Inc(k);
  end;
  Writeln;
  Writeln('Количество нулевых элементов на нечетных местах равно ',k);
end.

Тестовое решение:
Элементы массива
  2  5 -4  4  3 -2  5 -5 -1 -2  5  2  0 -5 -5 -4 -3  3  0  1
Количество нулевых элементов на нечетных местах равно 2

const
  n = 18;

var
  T: array[1..n] of integer;
  i: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    T[i] := Random(51)-25;
    Write(T[i]:4);
  end;
  Writeln;
  Writeln('Результат');
  for i := 1 to n do
  begin
    if ((i mod 2)<>0) then T[i] := 0;
    Write(T[i]:4);
  end;
  Writeln;
end.

Тестовое решение:
Элементы массива
  23  -6   8  14  15  12 -24  20 -11  -7   4 -24  22 -19  12  -6  21  17
Результат
   0  -6   0  14   0  12   0  20   0  -7   0 -24   0 -19   0  -6   0  17

Пушкин "Сказка о мёртвой царевне и семи богатырях":
  Темной ночки Елисей
Дождался в тоске своей.
Только месяц показался,
Он за ним с мольбой погнался,
"Месяц, месяц, мой дружок,
Позолоченый рожок!
Ты встаешь во тьме глубокой,
Круглолицый, светлоокой,
И, обычай твой любя,
Звезды смотрят на тебя.
Аль откажешь мне в ответе?
Не видал ли где на свете
Ты царевны молодой?
Я жених ей". - "Братец мой,
Отвечает месяц ясный: -
Не видал я девы красной.
На стороже я стою
Только в очередь мою.
Без меня царевна видно
Пробежала". - "Как обидно!" -
Королевич отвечал.
Ясный месяц продолжал:
"Погоди; об ней быть может
Ветер знает. Он
Ты к нему теперь ступай,
Не печалься же, прощай".
 
"Ветер, ветер! Ты могуч,
Ты гоняешь стаи туч,
Ты волнуешь сине море,
Всюду веешь на просторе.
Не боишься никого,
Кроме бога одного.
Аль откажешь мне в ответе?
Не видал ли где на свете
Ты царевны молодой?
Я жених ее".-- "Постой, --
Отвечает ветер буйный, --
Там за речкой тихоструйной
Есть высокая гора,
В ной глубокая нора;
В той норе, во тьме печальной,
Гроб качается хрустальный
На цепях между столбов.
Не видать ничьих следов
Вкруг того пустого места,
В том гробу твоя невеста".