Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
WrestlerTeam
12.02.2021 16:07 •
Информатика
Составьте программу, которая формирует массив из 7 случайных целых чисел из [-20,20] и выводит модуль отрицательных элементов, а положительные оставляет без изменений. на экран выводит исходный и преобразованный массив.
Ответ:
Дарья02031
04.10.2020 12:38
// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
var a:=ArrRandom(7,-20,20); a.Println;
a:=a.Select(x->abs(x)).ToArray; a.Println
end.
Пример
-9 17 6 1 20 9 -14
9 17 6 1 20 9 14
0,0
(0 оценок)
Популярные вопросы: Информатика
orixara1
27.07.2021 04:44
Как информация может быть объективной, но недостоверной? Если можно приведите примеры....
Vadimka69
26.05.2021 09:45
3. Запиши в двоичном коде числа, представленные в десятичном коде: 79 103 69 73 117 ОТВЕТ дайте...
Солі
03.06.2022 06:41
Массив из 50 элементов от 70 до 100 надо найти кол-во положит. и отрицат. чисел...
SeitZhanel11
05.05.2020 08:55
После преобразования растрового графического файла его объем уменьшился в 1,5 раза. сколько цветов было в палитре первоначально, если после преобразования было получено растровое...
ДашаСалина
24.11.2022 10:21
Опишите алгоритм лепки снеговика в виде блок-схемы !...
zemburg
23.08.2021 18:36
Спо информатике вычислить произведение a=2*4*6*8*10 используя операторы while и repeat...
geroi29
22.04.2021 21:09
Какие значения примут переменные с и d после выполнения следующего фрагмента программы: c: =1; d: =1; while с =5 do begin d: =d*c; c: =c+1; end;...
Элина177862006
04.11.2021 22:38
Найдите все ошибки в программе и исправьте их: var i,j,k: integer; begin read(‘введитеk’); i: =20; j: =k/i; writeln(j = , j); end....
reginaarslanov
04.11.2021 22:38
Составить алгоритм решения с паскаля, используя конструкцию циклического алгоритма. найдите сумму первых десяти чисел, кратных пяти...
abbasova05
29.09.2021 19:26
Периметр треугольника mkp равен 48см. сторона mk равна 14 см. , сторона kp на 7 см. больше стороны mk . найдите длину стороны mp....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
var a:=ArrRandom(7,-20,20); a.Println;
a:=a.Select(x->abs(x)).ToArray; a.Println
end.
Пример
-9 17 6 1 20 9 -14
9 17 6 1 20 9 14