Создать массив размерностью 5 на 5 в диапазоне от -20 до 20. k, n = 1, 2, 3, 4, 5. вывести его на экран в виде таблицы (матрицы вычислить количество положительных элементов и их про¬изведение.

Var a: array[1..5,1..5] of integer;
i,j,p,s: integer;
begin 
Writeln('Введите элементы матрицы: '); 
 for i:= 1 to 5 do  
  for J:=1 to 5 do   
read(a[i,j]);     
  for i:= 1 to 5 do   
begin 
  for j:= 1 to 5 do 
  write(A[i,j], ' '  ) ;     
  writeln();   
 end;         
 p:= 1; 
  s:= 0;   
 for i:= 1 to 5 do  
  for J:=1 to 5 do 
   if a[i,j] > 0 then 
     begin 
   s:= s+1;   
  p:= p*a[i,j];     
   end;   
 Writeln('Количество положительных элементов = ', s);    Writeln('Произведение положительных элементов = ', p); 
   end.

Если П и Ж аборигены, то она должны всегда говорить правду.Значит Ж(абориген)говорит правду, что он абориген и П передаёт правду. Он абориген.

Если П иЖ пришельцы, то они должны врать.Значит Ж говорит (неправду) я абориген, и П передаёт он пришелец. ---несоответствует контексту.

Если П-пришелец,а Ж-абориген, то П должен врать, а Ж говорить правду. Значит Жсказал правду " я абориген", а проводник передал он пришелец. --- несоответсвует контексту.

Если П- абориген, а Ж пришелец, то П всегда говорит правду, а Ж неправду. Значит  сказал" неправду "я абориген" а П передал он абориген.

В обоих случаях проводник абориген.

 

П- проводник

Ж - житель

Если бы проводник был пришельцем, тут возможно 2 варианта:

 

1) Они встретили пришельца, проводник спрашивает у пришельца, кто он. Тот, естественно врёт, что он абориген. Тогда проводник-пришелец возвращается и сообщает гостю не правду (то есть, не то, что сказал встреченый), то есть, что встреченный пришелец

 

2) Они встретили аборегена, проводник спрашивает у аборигена, кто он. Тот, естественно говорит правду, что он абориген. Тогда проводник-пришелец возвращается и сообщает гостю не правду, то есть, что встреченный пришелец.

 

Оба варианта нам не подходят, рассмотрим случаи, когда проводник абориген:

 

1) Они встретили пришельца, проводник спрашивает у пришельца, кто он. Тот, естественно врёт, что он абориген. Тогда проводник-абориген возвращается и сообщает гостю  правду (то есть, то, что сказал встреченый), то есть, что встреченный абориген

 

2) Они встретили аборегена, проводник спрашивает у аборигена, кто он. Тот, естественно говорит правду, что он абориген. Тогда проводник-абориген возвращается и сообщает гостю  правду, то есть, что встреченный абориген.

 

Оба условия подходят, значит проводник - абориген!