Регистрация
dan2013215671
10.11.2021 21:50
Информатика
Есть ответ 👍

Сделайте по информатике​

143
485
Посмотреть ответы 1

Ответы на вопрос:

rano124
rano124
4,8(59 оценок)
Pascalabc.net 3.4.2, сборка 1881 от 19.11.2018 внимание! если программа не работает, обновите версию!

begin

  var a : = arrrandom(15, -22, 33);

  a.println;

  a.transform(t -> t > 0 ? 1 : t);

  a.println

end.

пример -16 7 14 8 18 7 -5 -3 -18 26 -3 -8 31 13 -1 -16 1 1 1 1 1 -5 -3 -18 1 -3 -8 1 1 -1

Популярно: Информатика