Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
almosya2005
16.12.2020 19:01 •
Информатика
Составьте программу, которая формирует массив из 7 случайных целых чисел из [-20,20] и выводит модуль отрицательных элементов, а положительные оставляет без изменений. на экран выводит исходный и преобразованный массив.
Ответ:
savkinaveronika
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 оценок)
Популярные вопросы: Информатика
Serey9999
12.01.2021 15:31
Надо про каждую строчку рассказать, что это и что значит. program fury; const n=10; var a: array[1..n]of integer; min,max,i,s: integer; begin for i: =1 to n do read(a[i]); min: =1;...
hohlov228
12.01.2021 15:31
Решить ! створіть і виведіть масив з 20-ти випадкових цілих чисел з діапазону (0; 100),використовуючи функцію random(100).скільки вньому є чисел більших, ніх 20 і менших, ніж 60?...
Elka6677
16.05.2020 06:40
Построить таблицу истинности!...
lrydg2363
25.12.2020 21:43
олимпиада по информатике шифр мистера фокса мистер фокс придумал новый шифр. сначала он пронумеровал все 33 буквы алфавита цифрами, дописав к однозначным номерам слева 0, таким образом,...
anser8539
28.07.2022 15:06
Напишите программу, которая шифрует тексты следующим образом: исходная строка разбивается на части по 3 символа и эти три символа перемещаются по кругу вправо на одну позицию. если...
никнэйм0
05.05.2023 23:20
Чисел не принадлежащих промежутку[x,y), подсчитать количество отрицательных чисел, стоящих на четных местах. паскаль,одномерный массив...
MaxWatt
21.10.2022 10:10
1)напишите программу,которая спрашивает целое число n и считает сумму целых чисел ,сумму чётных чисел и сумму нечётных от 1 до n 2)напишите программу, которая спрашивает целые числа...
anastasiya258
17.08.2020 20:07
Составьте программы на паскале для решения №6-9 из к 34 7) у= (1-х^2 +5 x^4)^2 , 6) алгоритм сложения двух простых дробей (без сокращения). ,решается оценка за четверть...
СарварИбрагимов11
17.08.2020 20:07
На какое минимальное натуральное число нужно умножить 4.125, чтобы в результате получилось натуральное число...
magistr7818
17.08.2020 20:07
Составить алгоритм и программу для подсчета количества нулей в десятичной записи целого числа....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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