Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Дарья4311
01.12.2022 03:18 •
Информатика
На тему: массив рассортировать числа так,чтобы положительные были справа, отрицательные слева.
Показать ответ
Ответ:
lera192837465
07.10.2020 07:26
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
(a.Where(t->t<0)+a.Where(t->t>=0)).Println
end.
Пример
n= 20
42 -10 -32 -31 32 -42 -7 33 -22 5 -45 36 4 26 -23 -28 -13 -44 12 -12
-10 -32 -31 -42 -7 -22 -45 -23 -28 -13 -44 -12 42 32 33 5 36 4 26 12
0,0
(0 оценок)
Популярные вопросы: Информатика
лера12061206
11.07.2020 11:18
Построить график функции в qbasic? y=ax+b a=3,b=1 вот программа,но надо составить немного клеточек. 20 screen 12 30 view (10, , 300), , 3 40 window (-10, , -10)...
hgfdui
02.08.2022 21:07
help только с Дано и Решение...
anzhela33
30.10.2021 13:43
Какая величина является базовой единицей хранения информации и может хранить только одну цифру 0 или 1 ?...
кируськаномер1
25.03.2021 06:44
Выберите верный знак сравнения 1 кб ... 1000 байт =...
tiger071
19.02.2021 23:53
Створити програму в пайтон , яка зможе підписувати диплом. Вввести таку інформацію : місто, номер школи, клас , прізвище, імя учня...
Никита20220
21.12.2020 23:09
Является ли допустимым адрес хоста и может ли он быть адресом абонента сети Интернет? 255.0.200.1...
Pyc52141
29.01.2021 16:26
ответьте В таблице приведена стоимоть перевозок между соседними железнодорожными станциями. Какова максимальная стоимость проезда из пункта А в пункт С?...
KopolbEnufaHtuy
17.09.2022 10:19
Создать документ о микропроцессорах хранящихся на складе: название (Pentium, Celeron, Duron, Athlon), фирма (AMD, IDC, Texas Instrument, Motorola), частота, количество...
someone5682
10.12.2020 00:32
У якій вкладці на панелі вкладок знаходиться команда Параметри сторінки?...
EnenkoDana
03.07.2021 14:44
Составьте четыре логических выражения с оператора И, ИЛИ, НЕ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
(a.Where(t->t<0)+a.Where(t->t>=0)).Println
end.
Пример
n= 20
42 -10 -32 -31 32 -42 -7 33 -22 5 -45 36 4 26 -23 -28 -13 -44 12 -12
-10 -32 -31 -42 -7 -22 -45 -23 -28 -13 -44 -12 42 32 33 5 36 4 26 12