<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(10,-10,50); a.Println;
a.Transform(t->t<0?-t:t); a.Println
end.
<u>Пример</u>
4 -6 26 -5 14 17 17 47 -9 26
4 6 26 5 14 17 17 47 9 26
1 - a
2 - a
3 - d
4 - a
5 - г
6 -
7 -
8 - d
9.19 - 2
10 - 6
вот я составляла на чертежник
Const nmax = 5;
var a:array [1..nmax] of integer;
i,k:integer;
begin
k:=0;
randomize;
for i:=1 to nmax do
begin
a[i]:=random(11)+10;
write (a[i],' ');
if a[i] mod 5 = 0 then inc(k);
end;
writeln;
writeln ('Kol-vo: ',k);
end.
Нужно задать вопрос любому из них: "Если бы ты отвечал на вопрос:"За какой дверью дракон", что бы ты ответил?" Если спросили честного, он и ответит так, как бы ответил. Если спросили лжеца, то он соврет относительно своего ответа, т.е. в любом случае ответит правдиво. Как бы двойной фильтр, результат которого для лжи и правды одинаков.