Вдревнем городе живут только шуты и короли. короли всегда лгут, шуты всегда говорят правду. встретились три жителя этого города: эх, ах, ых. эх сказал: "мы - все короли". ах ответил: "ровно один из нас - шут". ых промолчал. определите кто есть кто. а) все шуты; б) все короли; в) ах - шут, эх и ых - короли; г) ах и ых - шуты, эх - король.

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

Const   m=10; var   r: array[1..m,1..m] of integer;   i,j,t,p,q: integer; begin   write('введите номер строки (1..10) для перестановки: ');   read(q);   randomize;   writeln('исходный массив');   for i: =1 to m do begin       for j: =1 to m do begin           r[i,j]: =random(90)+10;           write(r[i,j]: 3);           end;       writeln   end;   p: =1;   for i: =2 to m do       if r[i,i]< r[p,p] then p: =i;   if p< > q then begin       writeln('результирующий массив');       for j: =1 to m do begin           t: =r[p,j]; r[p,j]: =r[q,j]; r[q,j]: =t           end;       for i: =1 to m do begin           for j: =1 to m do write(r[i,j]: 3);           writeln           end       end end.                      пример введите номер строки (1..10) для перестановки: 3 исходный массив   50 86 52 85 96 69 44 51 20 77   55 79 39 73 98 74 65 65 63 80   64 89 83 55 98 74 85 63 90 52   37 42 64 84 66 78 67 31 56 34   69 18 34 48 42 44 12 91 67 47   72 19 14 22 53 61 13 97 87 31   83 80 61 67 50 22 25 55 16 29   16 44 19 39 20 55 65 44 23 63   72 93 96 52 79 27 38 52 40 15   75 70 44 34 50 88 57 66 97 29 результирующий массив   50 86 52 85 96 69 44 51 20 77   55 79 39 73 98 74 65 65 63 80   83 80 61 67 50 22 25 55 16 29   37 42 64 84 66 78 67 31 56 34   69 18 34 48 42 44 12 91 67 47   72 19 14 22 53 61 13 97 87 31   64 89 83 55 98 74 85 63 90 52   16 44 19 39 20 55 65 44 23 63   72 93 96 52 79 27 38 52 40 15   75 70 44 34 50 88 57 66 97 29

Procedure chisla(n : integer); var    a : integer; begin      if (n < 1) then  writeln        else      begin          read(a);         if (abs(a) < 1000) then        begin            chisla(n-1);             write(a,' ');           end        else              chisla(n);       end; end;   function readn() : integer; var    n : integer; begin    write('n=');     readln(n);     if not(n in [0..1000]) then        n : = readn();     readn : = n; end;   var    n : integer;   begin    n : = readn();     writeln('введите ', n, ' целых чисел через пробел и нажмите enter');       chisla(n); end.