1011
<u> 11
</u> 1011
<u>1011
</u>100001<u>
</u>
Program Rinok;
<span>Const x0=0;</span>x1=5;
Var s,w: integer;
begin
Randomize;
s:=Random(X1-X0)+X0;
w:=Random(X1-X0)+X0;
writeln('у Кузи-',s);
writeln('у Дуси-',w);
if (s>w)
<span>then
Writeln ('-у Кузи больше')
</span><span>else
Writeln ('-у Дуси больше');
</span>Readln
end.<span>
</span>
Выдаст произведение следующих чисел
2*5*2*4*2*3*2*2*2*1=3840
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(7,-5,5); a.Println(',');
a.Transform(t->t>3?-10:t+2); a.Println(',')
end.
<u>Пример</u>
-2,-1,4,2,5,0,2
0,1,-10,4,-10,2,4
Маркированный и нумированный