Совершено убийство. Подозреваются Браун, Джон, Смит. Один из них – брат убитого, другой – сосед, третий – случайный знакомый. Каждый из них сделал заявление. Браун. Если ни я, ни Джон невиновны, то Смит тоже невиновен. Смит. Чтобы обвинить меня и Брауна, достаточно признать Джона невиновным. Но Джон виновен. Значит, нельзя считать, что ни я, ни Браун невиновны. Джон. Если меня сочтут виновным, то Смиту удастся оправдаться только тогда, когда оправдается Браун. Но виновен либо Смит, либо Браун. Я невиновен. Следователь сообщил, что правду сказал только брат убитого, остальные солгали. Кто убийца?
uses Crt;
const n = 10;
var A: array [1..n] of integer;
i: integer;
begin
ClrScr;
Randomize;
WriteLn ( ' Massiv I: ');
for i:=1 to n do
begin
A[i] := 1+random(n);
Write (A[i]:4);
end;
WriteLn; WriteLn ( ' Massiv II: ');
for i:=1 to n do
begin
if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];
Write (A[i]:4);
end;
ReadLn;
end.