Уинопланетян, прилетевших из другой галактики в нескольких миллиардах световых лет, оказалась совсем другая логика. вместо «да» они говорят «нет», а вместо «нет» они говорят «да». ну а какой она может оказаться у тех, кто несколько раз пролетал через кротовую нору, телепортировался и проходил процесс восстановления сознания? как бы они ответили на нижеперечисленные вопросы? 1. они всегда жили на земле? да нет 2. они на себе испытали телепортацию? да нет 3. в кротовой норе космического масштаба они были не менее одного раза? да нет 4. жители земли тоже проходят процесс восстановления сознания? да нет 5. родная планета инопланетян находится более чем в миллиарде световых лет от земли? да нет

uses crt; {подключение модуля crt}var  {описание переменных}    a,b,c: array [1..100] of integer;   i: integer; begin  write('введи количество элементов массива: '); read(i);   {вывод текста на экран и чтение вводимых данных}  clrscr;   {очистка экрана}  writeln('первый массив: ');   {вывод текста на экран}  for i: =1 to i do  {цикл}  begin    a[i]: =random(10);   {значения первого массива от 0 до 9}    b[i]: =random(10)-10;   {значения второго массива от -10 до -1}    if i mod 2=0 then c[i]: =b[i]  {четные элементы третьего массива}      else c[i]: =a[i];   {нечетные элементы третьего массива}    write(a[i]: 4); {вывод на экран первого массива}  end;   {конец цкла}  writeln; writeln('второй массив');   {вывод текста на экран}  for i: =1 to i do  {цикл}    write(b[i]: 4);   {вывод второго массива на экран}  writeln; writeln('третий массив: ');   {вывод текста}  for i: =1 to i do  {цикл}    write(c[i]: 4);   {вывод третьего массива}end.