PascalABC.NET Дан массив из 20 целых чисел,все элементы меньше 10 заменить ** 1, и...

Question

PascalABC.NET Дан массив из 20 целых чисел,все элементы меньше 10 заменить на 1, и вывести получившиеся массив на экран. Заполнение массива с клавиатуры.

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadArrInteger(20);

 a.Transform(t -> t < 10 ? 1 : t);

 a.Println

end.

---

Comments

Не моя проблема бред понимать.

---

Видите, Вы работающую программу называете бредом лишь потому, что не в силах ее понять. И после этого считаете себя нормальным воспитанным ребенком? Это и есть хамство. В той, или иной степени. Но для Вас оно - норма, потому Вы его и не замечаете. А воспитанный человек в подобных случаях говорит "Спасибо" и извиняется за свой ляп, что не указал, как именно ему нужно решить задание.

---

Бредом я имел в виду то, что вы написали в комментариях, когда обиделись на что-то, а не программа. А объяснять дополнительно к программе тут нечего, т.к. условия все расписаны, соответственно тут и ясно какова тема.

---

Да. Трудный случай. Тема как раз не важна. Важны ограничения на средства, которые используются при написании программы. Но достаточно, Вашему пониманию, как уже понятно, это недоступно.

---

При массивах было только a:array...... и т.д. Про transform и println и речи не шло. Вместо println пишем writeln вообще. ReadArrInteger выглядит как что-то сокращенное.

---

Занесите программу в окно ввода, подведите курсор к непонятному слову - она все покажет

---

То есть вы мне дали ответ из окна вывода? Впервые так. Всегда писали целую программу от program до end. Разве не логично, что ответ вроде как присылают программой, а не результатом из окна вывода? Но вписать ваше написанное в окно вывода не получается, даже в английской раскладке.

---

Ох... беда-беда

---

Приложил скрин

---

Хм, значит это не в окне вывода. Забейте, ладно.