1. Информатика
  2. Составьте программу формирования

Составьте программу формирования из одного массива двух: первый массив заполнен отрицательными элементами, а второй — положительными элементами.

samwwww samwwww    3   12.04.2020 17:49    1

Ответы
VERONIKA75498768783 VERONIKA75498768783  13.10.2020 03:01

// PascalABC.NET

begin

 var n := ReadInteger;

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var b := a.Where(p -> p < 0).ToArray;

 b.Println;

 var c := a.Where(p -> p > 0).ToArray;

 c.Print

end.


Составьте программу формирования из одного массива двух: первый массив заполнен отрицательными элеме
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
tatianaradoslav tatianaradoslav  29.09.2019 03:30
Врезультате выполнения фрагмента программы while 0 do begin write (2*(n mod 10)+1); n: =n div 10 end на экране выведено число 13717.укажите все числа,которые могли находиться...
narutoluffi1 narutoluffi1  29.09.2019 03:30
Порекомендуйте 3-4 сайта компаний, которые вам нравятся. рекомендуйте те компании, у которых хорошие и понятные, красивые и логичные сайты. сравните сайты между собой....
DaianaKey DaianaKey  29.09.2019 03:30
Переведите в двоичную систему счисления числа 19, 25, 31, 56...
Annala1 Annala1  29.09.2019 03:30
ответь на вопрос 1) какие свойства относят к общим свойствам? какие - к отличительным?...
tony23 tony23  29.09.2019 03:30
Водной из кодировок unicode каждый символ кодируется 16 битами. определите информационный объём следующего предложения в данной кодировке: глаза – зеркало души. не сходится...
артём5424794 артём5424794  30.04.2020 15:56
нужно Запишите с блок-схем пословицу. Слово-не воробей, вылетит не поймаешь. Следующий во Что получится в результате действий исполнителя Чертежник по следующему алгоритму:...
aasybas aasybas  30.04.2020 15:56
с информатикой 1.Сколько раз будет выполняться цикл? For i: = 1 to 7 do s: = s+1 2.Сколько раз будет выполняться цикл? For i: = -3 to 3 do s: = s+1 3.Сколько раз будет...
PolyMoly1 PolyMoly1  17.09.2019 09:00
Какие строки содержат ошибки? 1) readln (x+y); 2)writeln (x+y); 3)x = 2 * a (присваивание) 4) var a: integer, b: real...
StopXpeople StopXpeople  17.09.2019 09:00
Брошюра содержит 32 страницы, на каждой странице 32 строки, в каждой строке 25 символов. определите информационный объём статьи в кбайтах в кодировке windows-1251, в...
Vanek041005 Vanek041005  17.09.2019 09:00
Пусть пользователь вводит 2 целых числа - длины сторон прямоугольника. составьте программу вычисления площади и периметра прямоугольника....

Популярные вопросы