Можливості скретч (7 слайдів)

Восьмиклассник в синей рубашке.

Объяснение:

Имеются три высказывания:

Класс 8 И Рубашка Красная (1)

Класс 6 И Рубашка Синяя (2)

Класс 7 И Рубашка НЕ Красная (3)

Известно, что в каждом высказывании одно утверждение истинно, другое ложно.

Предположим, что рубашка красная, тогда из (1) следует, что класс не восьмой. В (3) будет ложно утверждение о том, что рубашка не красная, следовательное класс седьмой. Из  (2) следует, что если класс не 6, то рубашка синяя. Но мы предположили, что рубашка красная, следовательно наше исходное предположение неверно.

Предположим, что рубашка синяя. Из (2) следует, что класс не 6. Из (3) следует, что при не красной рубашке класс не может быть седьмым.  Следовательно, класс 8 и поэтому в (1) рубашка не может быть красной. Так оно и есть.

Это был восьмиклассник в синей рубашке.

Var 
a: array[1..n] of integer; 
k, i, m: byte; 
min: integer;

begin 
Write('Razmer massiva: '); 
Readln(k); 
if (k < 0) or (k > 100) then     
begin       
Writeln('Razmer dolzhen byt bolshe 0 i menshe 100');       
Readln;       
Exit;     
end; 
Randomize; 
Writeln('Ishodn. massiv: '); 
for i:=1 to k do     
begin       
a[i]:=Random(101)-50;       
write(a[i]:4);     
end; 
min:=a[1]; 
for i:=2 to k do   
if a[i] < min then       
begin         
min:=a[i];         
m:=i;       
end; 
a[m] := a[1]; 
a[1] := min; 
Writeln; 
Writeln('Min element = ', min:4, ' v posicii ', m:3); 
Writeln('Rezult. massiv: '); 
for i:=1 to k do     
write(a[i]:4); 
readln;
end.