Мы так делали, только в конце F.
Модем и специальное программное обеспечение на одном из компьютеров.
5500
знак | значит или, значит будет их сумма
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandomReal(ReadInteger('n='),0,3); a.Println;
a.Transform(x->(x>=1) and (x<=2)?1.0:x); a.Println
end.
<u>Пример</u>
n= 5
0.555734023244928 1.04867691874908 0.0153413121659967 1.08162656430231 2.92952936139401
0.555734023244928 1 0.0153413121659967 1 2.92952936139401