Войти Регистрация Спроси ai-bota

Вмассиве из 15 целых чисел найти медиану (средний элемент) и поменять его местами с первым элементом. pascal или c++

Ответ:

Artem574189

23.04.2020 08:34

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(15,1,99); a.Println;
var m:=a.Sorted.Skip(7).Min;
var i:=a.FindIndex(x->x=m);
Swap(a[0],a[i]);
a.Println;
end.

Пример
7 55 76 93 73 97 3 1 89 1 64 92 40 3 69
64 55 76 93 73 97 3 1 89 1 7 92 40 3 69

0,0(0 оценок)

Популярные вопросы: Информатика

IDebil

10.06.2020 21:10

1)сколько бит информации содержится в сообщении объёмом 0,25 кб? 2) выберите вариант ответа, в котором объемы памяти расположены в порядке убывания а) 1010 байт, 2 байта,...

vadimkurochkin

19.08.2021 21:45

Pascal. составьте программу замены местами в массиве b(n) первого положительного и минимального элементов. заранее...

MalenkayaStervochka

02.02.2021 10:27

НУЖНО Порядок чтения сборочного чертежа: Выберите один ответ: a. находят изображение каждой детали, читают основную надпись, определяют название изделия и количество входящих...

1234942

21.02.2023 19:06

У исполнителя есть 2 команды, которым присвоины номера 1. прибавь 1 - прибавляет к текущему числу единиц2. умножь на 3 - умножает текущее число на 3программа для исполнителя...

gulya104

24.09.2022 02:14

Чему равно значение формулы СУММ(В3:D10)если известно, что в каждой ячейке диапозона В3:D10 щаписано целое неотрицательное число и формула СРЗНАЧ(В3:D10)имеет значение 3....

михалыч676

12.08.2020 03:04

40.Машина проехала с одного города до другого за 3 дня. Машина в первый день за 4 ч со скоростью 52,8км/ч проехала 12% от всего пути, во второй день 60% от оставшегося. Найдите...

амир295

12.08.2020 03:04

СДЕЛАТЬ ДВА НОМЕРА! Прочитайте предложения. Укажите номера предложений, в которых сказуемые выражены именами существительными, прилагательными.Выпишите эти сказуемые,обозначьте...

freedomman87

12.08.2020 03:04

Представьте в виде дроби 2/a-3/b. 5/x+3/2y. b/3a-a/2b. 1/x+1/y...

sasyli333

16.04.2020 15:15

Напишите призёров (1,2,3 места) олимпийских игр из удмуртии. Год, город, и вид спорта...

Shoka63

30.07.2022 07:41

Ділянка кола складається з послідовно з єднаних резистора опором 1,4 Ом та фехралевого провідника завдовжки 80 см і перерізом 1,6 мм^2. Визначте кількість теплоти, що виділяється...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку