tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вмассиве все элементы 10 и
Вмассиве все элементы > 10 и < 20 заменить на первый элемент массива
Сережа8910
3 14.08.2019 10:00
0
Ответы
SashaLaik
04.10.2020 18:21
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),1,30); a.Println;
var a1:=a[0];
a.Transform(x->((x>10) and (x<20))?a1:x); a.Println;
end.
Пример
n= 15
8 6 15 29 11 20 11 13 19 6 1 10 18 26 19
8 6 8 29 8 20 8 8 8 6 1 10 8 26 8
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nikniksergeev1
18.12.2019 04:56
Блок схема x1=a& b& c x2=a& b v b& c...
18.12.2019 04:33
Составить програму вычисления суммы всех нечетных элементов массива из 8 случайных целых чисел из диапазона от 0 да 200....
mary556681p04ty3
18.12.2019 06:20
в ячейках записаны числа в a1-5, в a2-5, в a3-5, в a4-5, в b1-1000, в b2-1000, в b3-100, в c1-5000, в c2-10, в c3-1. в ячейке b8 записана формула =сумм(b2: c3). эту формулу...
DimaKot2
13.07.2019 06:20
Ульяна набрала в текстовом редакторе слово чемпионат,скопировала в буфер обмена,и 2015 раз вставляла содержимое буфера обмена в конце текста. какая буква идет под номером 2015...
ekaterinakorol4
13.07.2019 06:20
Х: =7 while x=7do begin writeln(x); x: =x-1 end...
Вероника3377
13.07.2019 06:20
Выберите из предложенного списка минимальный набор функций, которые должен выполнять любой текстовый редактор (даже простейший). • сохранение и загрузка файлов; • работа с графикой;...
BossPolina
30.07.2019 03:00
Pascal abc! даны два целых числа a и в (каждое в отдельной строке). выведите все числа от a до b включительно, в порядке возрастания, если a b, или в порядке убывания в противном...
ПрофессорЧерепашка
11.08.2019 17:30
Жители планеты бета отправили на землю сообщение 800 символов. определите информационный объём этого сообщения в байтах, если алфавит на этой планете содержит 16 символов...
Браство
11.08.2019 17:30
При 16-символьного алфавита было составлено сообщение объёмом 1,5 кило байт. сколько символов в этом сообщении?...
nikitasonar
11.08.2019 17:30
Сообщение о том что ваш друг живет на 9 этаже несет 5 бит информации. сколько этажей в доме?...
Популярные вопросы
Какой фанфик по приключения можно написать по тексту,,тореодори з васюкивки,,...
3
Плез. я уже сплю, а надо делать дз. ...
3
Найдите длину стороны mk треугольника mpk...
1
Спереводом номером 1ым по французскому языку 7 класс ставлю 20 ...
2
Сума двох чисел дорівнює 7,5, а подвоєне перше число дорівнює потроєному...
2
Знайти кут а , якщо tg(a) =1 і а є(0; л/2) (л- число пі)...
3
Бессмертное счастие наше россией зовется в веках. мы края не видели краше,...
3
Черчение! 1.сколько разрезов выполнено на чертеже? какие это разрезы? 2.какие...
2
Прочитайте текст, виправте помилки у слововживанні, ви- значте типи помилок...
1
Найдите острые углы прямоугольного треугольника abc если отношение острых...
3
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),1,30); a.Println;
var a1:=a[0];
a.Transform(x->((x>10) and (x<20))?a1:x); a.Println;
end.
Пример
n= 15
8 6 15 29 11 20 11 13 19 6 1 10 18 26 19
8 6 8 29 8 20 8 8 8 6 1 10 8 26 8