Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 1
Регистрация: 25.06.2012
Сообщений: 24

В матрице упорядочить четные строки по возрастанию, а нечетные по убыванию

25.06.2012, 11:27. Показов 1936. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
8.в матрице n*n упорядочить четные строки по возрастанию,а нечетные по убыванию
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
25.06.2012, 11:27
Ответы с готовыми решениями:

Вывести нечетные числа по возрастанию до заданного, а затем четные по убыванию
Требуется написать программку, которая, например, при вводе числа 15 выводила следующее: 1 3 5 7 9 11 13 15 14 12 10 8 6 4 2 То есть,...

Нечетные столбцы матрицы упорядочить по возрастанию, а четные по убыванию.
Нужно составить подпрограмму, которая преобразует матрицу Z(M,N) таким образом, чтобы нечетные столбцы матрицы были упорядочены по...

Ввести массив A(N). Упорядочить четные элементы массива по убыванию, а не четные по возрастанию.
Ввести массив A(N). Упорядочить четные элементы массива по убыванию, а не четные по возрастанию. Вывести на печать исходный и...

1
154 / 154 / 81
Регистрация: 16.06.2012
Сообщений: 314
25.06.2012, 17:39
Лучший ответ Сообщение было отмечено Вадик как решение

Решение

8 задача
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
CONST MAX_N = 100;
Var a : array[1..MAX_N , 1..MAX_N] of longint;
    j , n , i , k , tmp: longint;
Begin
    ReadLn(n);
    for i := 1 to n do
        for j := 1 to n do
            read(a[i][j]);
    for i := 1 to n do 
        if i mod 2 = 0 then begin
            for j := 1 to n - 1 do
                for k := j + 1 to n do
                    if a[i][j] > a[i][k] then begin
                        tmp := a[i][j];
                        a[i][j] := a[i][k];
                        a[i][k] := tmp;
                    end;
        end else begin
            for j := 1 to n - 1 do
                for k := j + 1 to n do
                    if a[i][j] < a[i][k] then begin
                        tmp := a[i][j];
                        a[i][j] := a[i][k];
                        a[i][k] := tmp;
                    end;
 
        end;
    for i := 1 to n do begin
        for j := 1 to n do
            Write(a[i][j] , ' ');
        WriteLn;    
    end;    
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
25.06.2012, 17:39
Помогаю со студенческими работами здесь

В матрице найти строку с наибольшим элементом и упорядочить элементы этой строки по убыванию
В матрице А найти строку с наибольшим элементом и упорядочить элементы этой строки по убыванию.Результат записать в матрицу B. Элементы...

Упорядочить нечетные элементы, оставив четные на местах
Здравствуйте Прошу помощи в написании следующей программы: В одномерном массиве упорядочить нечетные элементы, оставив четные на...

Упорядочить по возрастанию четные элементы вектора
Добрый день. Помогите пожалуйста: Упорядочить по возрастанию четные элементы вектора В В = {0.2 1.5 4.2 -0.1 2.1 4.8}

Упорядочить массив по возрастанию и убыванию
Упорядочить массив по возрастанию и убыванию

Отсортировать все четные элементы одномерного массива по возрастанию, нечетные оставить без изменения
Дан одномерный массив. Отсортировать все четные элементы по возрастанию, нечетные оставить без изменения. Относительного расположения...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru