Анализируем и сравниваем Разделитесь на группы. Используя дополнительные
источники информации, проанализируйте приведенные
ниже программы-архиваторы. Проведите сопоставление
преимуществ и недостатков.
Программы-
архиваторы
Описание
Преимущества
Недостатки
Я НА УРОКЕ

Если Павел лжет в первый день, значит на самом деле он говорит правду либо в понедельник, либо во вторник.
Если лжет в третий день - значит говорит правду либо в среду, либо в пятницу.Поскольку он говорит правду лишь в один день, то он не может лгать и в первый день, и в третий. Значит, в какой-то из этих дней он говорит правду.
Значит, во второй день он точно лжет, следовательно второй день - это либо понедельник, либо вторник, либо среда либо пятница.Осталось выяснить, в какой из дней он говорит лжет, в первый или третий.
Пусть это третий. Значит он говорит правду в среду или в пятницу - и первый день это среда или пятница. Но тогда второй день - четверг или суббота, а мы знаем что это невозможно. Противоречие.Следовательно, в первый день Павел солгал, а правду он говорит по понедельникам либо по вторникам. Тогда третий день - понедельник или вторник. Поскольку второй день не может быть воскресеньем, значит третий день (правдивый) - вторник.

Const
  n = 20;

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

begin
  Randomize;
  Writeln('*** Исходный массив ***');
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i]:4);
  end;
  Writeln;
  Writeln('*** Результирующий массив ***');
  for i := 1 to n do
  begin
    if (x[i] mod 2) = 0 then x[i] := 0;
    Write(x[i]:4);
  end;
end.

Тестовое решение:
*** Исходный массив ***
  -4  -8  42  18  -4 -19 -35  21  19  32 -45  45 -43 -22 -17 -12  11   9 -47  37
*** Результирующий массив ***
   0   0   0   0   0 -19 -35  21  19   0 -45  45 -43   0 -17   0  11   9 -47  37