переписать попорядку в массив с положительные а в массив м отрицательные

Переписать попорядку в массив с положительные а в массив м отрицательные элементы массива на pascal.
10 вариант

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ReadlnString('Введите начальный массив:').ToIntegers;
Write('Массив с положительными элементами:');
var C:=a.Where(t-gt;tgt;0).ToArray.Println;
Write('Массив с отрицательными элементами:');
var M:=a.Where(t-gt;tlt;0).ToArray.Println;
end.

Пример
Введите начальный массив: 213 1 -123 12 -12 3312 -21 22 14 -21
Массив с положительными элементами:213 1 12 3312 22 14
Массив с отрицательными элементами:-123 -12 -21 -21

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт