Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
robot1212
05.04.2022 17:05 •
Информатика
Паскаль составить программу отсортировать 4 столбец двумерного массива по возрастанию (8 на 8)
Показать ответ
Ответ:
ALEXANDER982
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 оценок)
Популярные вопросы: Информатика
Bikolik27nn
28.11.2020 19:12
Компьютера 8 10 предложений не из интернета...
dzubaliz
23.04.2023 11:36
1. Кітаптың 300 беті және әр бетте 60 символдан тұратын 45 қатар бар. Осы кітаптың көлемін Кб және Мб өлшемдерге ауыстырыңдар (1 символ = 1 байт депесептеңдер)....
Yulia27082017
28.02.2021 19:38
Тапсырма №3Кемежайдан жылжыған кеме 1 сағатта 25 шақырым жүзді. Жел ілеспелі болғандықтан, кеме сағатына жылдамдығын 1 шақырымға көбейтті. Сегізінші сағатта ол 32км/сағ...
кика20051
23.04.2021 12:27
Тапсырма №1 Сыртқы жады … үшін қажет.2. Қатқыл диск … үшін қолданылады.3. Фильмді сақтау үшін … қажет, себебі…4. Смартфон сияқты қазіргі заманғы құрылғыларда … қолданылады.5....
tasapetrova
26.08.2022 13:22
1400897536 b = ? MEGABYTE...
erteeq
27.09.2020 01:24
Напечатайте в столбик нечетные числа от 3 до 25 через цикл с постусловием. плз скорее....
Lizikjung
03.04.2021 09:14
Найти сумму цифр четырехзначного числа через цикл с постусловием...
Иваныч71
03.04.2021 09:14
Сколькосекунд требуется модему , информацию со скоростью 19200 бит/с, чтобы передать 150 страниц текста в 35строк по 50 символа в кодировке ascii? ((...
MMMOZG
24.05.2020 14:58
Дан целочисленный массив размера n. удалить из массива все элементы с четными номерами. когда из массива «удаляются элементы», то его размер, очевидно, меньше не...
nastyluk125
24.05.2020 14:58
При просмотре веб-сайтов и общении через интернет: 1 вы оставляете электронные следу («цифровые отпечатки»), по которым можно определить, какие страницы 2 вы просматривали...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
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