Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Макс332211
10.12.2022 00:45 •
Информатика
Написать программу на паскале : требуется переписать элементы массива а в массив б,удвоив все элементы,меньшие 1-ого элемента,остальные переписать без изменений. массив а заполняется случайными числами
Показать ответ
Ответ:
Anna1855
07.10.2020 01:44
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var A:=ArrRandom(ReadInteger('n='),-99,99); A.Println;
var Б:=A.Select(x->x<A.First?2*x:x).ToArray; Б.Println
end.
Пример
n= 15
11 -39 -30 -40 97 12 51 91 29 -52 2 27 -81 20 9
11 -78 -60 -80 97 12 51 91 29 -104 4 27 -162 20 18
0,0
(0 оценок)
Популярные вопросы: Информатика
DogFerty656
06.03.2021 04:27
Задание с кратк,дание с кратким ответом. Запишите доменное имя компьютера, за-истрированного в домене верхнего уровня ru, домене второго уровняschools и имеющего собственное...
Наполнение
18.06.2020 08:03
Складить блок -схему фрагмента алгоритму , у якому в цикл з личильником вкладено неповне розгалуження. Пояснить виконання складеного фрагмента,...
efimovan
13.10.2022 17:07
Вычислите значение логического выражения НЕ (x 7) ИЛИ ((X меньше или равно 9) И (X 5)) при x=5...
alinabugajcuk38
13.07.2021 17:19
Какая из перечисленных операционных систем является однозадачной ? А) Windows B) MacOS C) Ms-Dos D) Unix...
pep4
25.04.2023 17:08
Сколько кбайт информации содержит сообщение объемом 2 в 13 степени бит...
ммм298
25.04.2023 17:08
Ан фрагмент таблицы «зарплата сотрудников». a b 1 фамилия зарплата, руб. 2 иванов 10102 3 петров 13760,37 4 кошкина 5535 5 владимирова 16974,76 6 поляков 39635 7 николаев...
Arianna779
07.08.2022 05:38
1. С какой целью проводились исследования на территории Казахстана в начале XX в.? 2. Почему в предвоенные годы возникла необходимость создания единого научного центра...
mondraj
25.10.2021 23:41
Напишите программу, которая ищет среди целых чисел, принадлежащих числовому отрезку [283341; 286500] простые числа (т.е. числа у которых только два делителя: 1 и само число),...
mspasenkova
01.01.2022 00:56
Упр 4А предложение находится в упражнении 4Б для меня это важно...
saitovdamir20Damit
05.03.2022 10:44
какой тип историческогр источника М. Стрыйковский Хроника польская, литовская, демойтская и вся Руси...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var A:=ArrRandom(ReadInteger('n='),-99,99); A.Println;
var Б:=A.Select(x->x<A.First?2*x:x).ToArray; Б.Println
end.
Пример
n= 15
11 -39 -30 -40 97 12 51 91 29 -52 2 27 -81 20 9
11 -78 -60 -80 97 12 51 91 29 -104 4 27 -162 20 18