Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
ZelyakAnna
04.10.2022 16:43 •
Информатика
Паскаль составить программу отсортировать 4 столбец двумерного массива по возрастанию (8 на 8)
Ответ:
IbraevaLisa
03.08.2020 21:29
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(8,8,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
a.SetCol(3,a.Col(3).OrderBy(x->x).ToArray);
Writeln('*** Полученный массив ***'); a.Println(4)
end.
Пример
*** Исходный массив ***
77 68 79 -85 30 -28 -11 85
-52 -62 -94 -30 -82 31 -16 -80
-97 -95 84 -62 -53 5 68 -23
53 7 38 10 -88 -66 98 85
-99 -31 -6 71 32 -2 84 -87
45 46 -35 -2 -97 -46 -76 -66
-18 -10 72 -95 73 -55 -7 -27
99 3 -39 -77 33 78 73 -85
*** Полученный массив ***
77 68 79 -95 30 -28 -11 85
-52 -62 -94 -85 -82 31 -16 -80
-97 -95 84 -77 -53 5 68 -23
53 7 38 -62 -88 -66 98 85
-99 -31 -6 -30 32 -2 84 -87
45 46 -35 -2 -97 -46 -76 -66
-18 -10 72 10 73 -55 -7 -27
99 3 -39 71 33 78 73 -85
0,0
(0 оценок)
Популярные вопросы: Информатика
sychewaya8310
25.03.2021 07:20
Вmaple вычислить значение производной в точке x = 0, имея в виду, что f(0) = 0: f(x)=ln(1-sin(x³sin(1/x))...
masha3231
25.03.2021 07:20
Найдите факториал 7.тремя программами через while,for,repeat....
llerochka1
25.03.2021 07:20
Сколько символов содержит сообщение, записанное с 4 символьного алфавита, если объем его составил 100 бит?...
бог20031
13.02.2020 19:53
что-то у меня ничего не получается....
Lraaq
23.04.2022 18:33
Даны целые числа x, y,c. напишите программу, которая находит значение выражения x+y/2c и выводит на экран монитора результат....
ник3999
23.04.2022 18:33
Составьте программу для печати таблицы перевода расстояний из дюймов в сантиметры для значений дюйма,если 1 дюйм =25,4мм паскаль за 8 класс...
ianezlo
28.06.2020 12:28
1929 – 1939 гг.Развёрнутый ответ1. Как в различных странах Запада решался во об участии государства в экономике с целью преодоления кризиса (охарактеризуйте США, Францию,...
AmooQ
15.05.2023 00:05
До десятих округлить 12,88;0,33.до сотих 5,678;0,781.до десятків 44,7;68,3.до сотень 375,2;1342,1.до одиниць 371,8;59,3....
Амиiskdhdm
06.04.2022 07:44
Назовите отличительную черту Киевского княжества от остальных Юго-Западных Русских Княжеств....
chudaevavera29
06.04.2022 07:44
Укажите, какие товары вывозятся и ввозятся на территорию Западной Сибири: уголь, изделия легкой промышленности, нефть, машины, продовольствие, оборудование, пиломатериалы,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(8,8,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
a.SetCol(3,a.Col(3).OrderBy(x->x).ToArray);
Writeln('*** Полученный массив ***'); a.Println(4)
end.
Пример
*** Исходный массив ***
77 68 79 -85 30 -28 -11 85
-52 -62 -94 -30 -82 31 -16 -80
-97 -95 84 -62 -53 5 68 -23
53 7 38 10 -88 -66 98 85
-99 -31 -6 71 32 -2 84 -87
45 46 -35 -2 -97 -46 -76 -66
-18 -10 72 -95 73 -55 -7 -27
99 3 -39 -77 33 78 73 -85
*** Полученный массив ***
77 68 79 -95 30 -28 -11 85
-52 -62 -94 -85 -82 31 -16 -80
-97 -95 84 -77 -53 5 68 -23
53 7 38 -62 -88 -66 98 85
-99 -31 -6 -30 32 -2 84 -87
45 46 -35 -2 -97 -46 -76 -66
-18 -10 72 10 73 -55 -7 -27
99 3 -39 71 33 78 73 -85