Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
nik480
25.07.2020 05:40 •
Информатика
Написать программу на паскале : требуется переписать элементы массива а в массив б,удвоив все элементы,меньшие 1-ого элемента,остальные переписать без изменений. массив а заполняется случайными числами
Ответ:
gordeevlogain2
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 оценок)
Популярные вопросы: Информатика
mixon2
05.05.2022 19:46
Написать программу для вычисления значения функции в visual studio C#...
Salat12
02.01.2022 12:24
Сколько бит памяти занимает текст состоящий из 9 символов. В тексте использован 32 символьный альфав только дано ответ...
праллель
21.07.2022 04:16
Составьте программу, запрашивающую у пользователя k целых чисел и вычисляющую произведение положительных. пример работы: окно вывода сколько чисел обработать? 5 введите число 2...
gidfgwlr
21.07.2022 04:16
Составьте программу вычисления суммы целых чисел от 2 до 17. пример работы: сумма чисел от 2 до 17 составляет 152 (через паскаль надо)...
akimfugenko
21.07.2022 04:16
Составьте программу запрашивающую у пользователя его имя и целое число n, а затем выводящую фамилию n раз на экран. пример работы: окно вывода как вас зовут? вася сколько раз вас...
кроп1
29.06.2020 02:31
Как определяются стили css для иденфиаторов? пример использования html. , я на !...
dionakavinep08o5z
22.02.2023 00:24
Образуй и запиши по два или три однакоренных слова с приставками оканчивающимися на согласный. ясный, приём, единый, явление....
ДинаВаитова
22.02.2023 00:24
Составьте три кластера, вписав в них данные целые, дробные и собирательные числительные. тридцать пять, оба, одна четвертая, четверо, две третьих, шесть седьмых, трое, сто, семеро,...
lvlupiq
22.02.2023 00:24
С3 вопросами ! 1.какие постоянные ветра господствуют над евразией,как каждый ветер влияет на климат евразии 2.какое влияние оказывает мировой океан и течения на климат евразии?...
ZacLolka
22.02.2023 00:24
Проходит ли через полиэтиленовый пакет свет? и проходит ли через стакан с абрикосовым соком свет? ответьте !...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
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