поменять на 1 все элементы массива С1,С2....Сn находящиеся в промежутке [1,2]

Поменять на 1 все элементы массива С1,С2....Сn находящиеся в промежутке [1,2]

Задать свой вопрос
1 ответ
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandomReal(ReadInteger('n='),0,3); a.Println;
  a.Transform(x-gt;(xgt;=1) and (xlt;=2)?1.0:x); a.Println
end.

Пример
n= 5
0.555734023244928 1.04867691874908 0.0153413121659967 1.08162656430231 2.92952936139401
0.555734023244928 1 0.0153413121659967 1 2.92952936139401
Михон
спасибо)
Нина Сириус
а с этим не поможете?))найти количество членов послдовательности а1,а2 имеющих четные номера и являющимися чеными числами
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт