Вопрос по информатике:
Замените «1» вместо положительных элементов в массиве X (12) и «0» вместо отрицательных элементов. (на паскале!!!!)
Пожаловаться
- 06.04.2018 01:15
- Информатика
- remove_red_eye 4396
- thumb_up 21
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ArrRandom(12,-50,50); x.Println;
x.Transform(t->t>0 ? 1 : 0); x.Println
end.
Пример
-11 -29 -44 -9 -13 15 20 -1 -8 4 46 50
0 0 0 0 0 1 1 0 0 1 1 1
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ArrRandom(12,-50,50); x.Println;
x.Transform(t->t>0 ? 1 : 0); x.Println
end.
Пример
-11 -29 -44 -9 -13 15 20 -1 -8 4 46 50
0 0 0 0 0 1 1 0 0 1 1 1
Пожаловаться
- 07.04.2018 06:08
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы