Pascal!!!Дан массив целых чисел размерности 10.Из всех четных элементов вычесть последний элемент,из всех нечетных-последний.Нулевые оставить без изменений.

Ответы:

Кристина Юрченко

02-03-2019 13:34

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016 begin var a:=ArrRandom(10,-20,20); a.Println; var c:=a[a.High]; a.Transform(x->x=0?x:x-c); a.Println end. Тестовое решение -4 9 4 0 18 1 -8 -6 -8 12 -16 -3 -8 0 6 -11 -20 -18 -20 0

Также наши пользователи интересуются:

После того как было вспаханано 82% всего поля, осталось вспахать ещё 9 га. Какова площадь всего поля? 3. Автоматическая телефонная станция мощностью 250кВт работает круглосуточно. Какова стоимость энергии за месяц (30 суток), если стоимость 1 кВт 2 руб. 15 коп?

Картинка с текстом вопроса от пользователя ТЕМА ГАПОНЕНКО

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Pascal!!!Дан массив целых чисел размерности 10.Из всех четных элементов вычесть последний элемент,из всех нечетных-последний.Нулевые оставить без изменений. » от пользователя ТЕМА ГАПОНЕНКО в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!

Pascal!!!Дан массив целых чисел размерности 10.Из всех четных элементов вычесть последний элемент,из всех нечетных-последний.Нулевые оставить без изменений.

PHP Core Warning – yii\base\ErrorException

PHP Startup: Unable to load dynamic library '/usr/lib/php5.6/mysql.so' - /usr/lib/php5.6/mysql.so: cannot open shared object file: No such file or directory