Вопрос по информатике:
Переписать подряд в массив с положительные а в массив м отрицательные элементы массива на pascal.
10 вариант
Пожаловаться
- 02.04.2018 04:31
- Информатика
- remove_red_eye 5742
- thumb_up 43
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString('Введите исходный массив:').ToIntegers;
Write('Массив с положительными элементами:');
var C:=a.Where(t->t>0).ToArray.Println;
Write('Массив с отрицательными элементами:');
var M:=a.Where(t->t<0).ToArray.Println;
end.
Пример
Введите исходный массив: 213 1 -123 12 -12 3312 -21 22 14 -21
Массив с положительными элементами:213 1 12 3312 22 14
Массив с отрицательными элементами:-123 -12 -21 -21
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString('Введите исходный массив:').ToIntegers;
Write('Массив с положительными элементами:');
var C:=a.Where(t->t>0).ToArray.Println;
Write('Массив с отрицательными элементами:');
var M:=a.Where(t->t<0).ToArray.Println;
end.
Пример
Введите исходный массив: 213 1 -123 12 -12 3312 -21 22 14 -21
Массив с положительными элементами:213 1 12 3312 22 14
Массив с отрицательными элементами:-123 -12 -21 -21
Пожаловаться
- 03.04.2018 09:34
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы