С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
2 / 2 / 0
Регистрация: 20.02.2015
Сообщений: 12

В матрице nxn упорядочить по возрастанию элементы четных столбцов

20.03.2015, 13:11. Показов 1332. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В матрице nxn упорядочить по возрастанию элементы четных столбцов

Добавлено через 1 час 1 минуту
помогите решить
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
20.03.2015, 13:11
Ответы с готовыми решениями:

В матрице nxm упорядочить по возрастанию элементы четных столбцов
В матрице nxm упорядочить по возрастанию элементы четных столбцов.

Упорядочить по возрастанию элементы четных столбцов
Помогите мне пожалуйста решить задачу на двумерный массив:umnik: : В матрице nxm упорядочить по возрастанию элементы четных столбцов

В матрице размером 6х8 упорядочить элементы чётных строк по возрастанию методом обмена с флагом
В матрице размером 6х8 упорядочить элементы чётных строк по возрастанию методом обмена с флагом(программа должна иметь как минимум 3...

1
Фрилансер
 Аватар для CodeR
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,603
Записей в блоге: 1
20.03.2015, 14:55
Лучший ответ Сообщение было отмечено kosmas94 как решение

Решение

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
34
35
36
37
38
39
40
41
42
43
44
45
Const nmax=20;
Var A:array[1..nmax,1..nmax] of integer;
    i,j,k,n:integer;
    jmin,t:integer;
Begin
    Randomize;
    Repeat
     write('Введите N: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        A[i,j]:=-15+random(31);
        write(A[i,j]:4);
      End;
      writeln;
    End;
    i:=2;
    While i<=n do
    Begin
      For k:=1 to n do
      Begin
        jmin:=k;
        For j:=k+1 to n do
         if A[j,i]<A[jmin,i] then jmin:=j;
        if jmin<>k then
        Begin
          t:=A[jmin,i];
          A[jmin,i]:=A[k,i];
          A[k,i]:=t;
        End;
      End;
      i:=i+2;
    End;
    writeln('Преобразованная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(A[i,j]:4);
      writeln;
    End;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
20.03.2015, 14:55
Помогаю со студенческими работами здесь

Упорядочить элементы столбцов матрицы по неубыванию, а сами столбцы по возрастанию максимальных элементов столбцов
Дана матрица(8.9). Упорядочить элементы столбцов матрицы по неубыванию, а сами столбцы по возрастанию максимальных элементов столбцов

В матрице размером N строк и M столбцов упорядочить строки по возрастанию их первых элементов
Дана матрица размером N строк и M столбцов. Упорядочить ее строки по возрастанию их первых элементов. Есть блок-схема и кусок...

Упорядочить по возрастанию отдельно элементы, стоящие на четных местах, и элементы на нечетных
помогите: В одномерном массиве, состоящем из n вещественных элементов: Упорядочить по возрастанию отдельно элементы, стоящие на...

Упорядочить в матрице по возрастанию элементы пятого столбца
Дан двумерный массив содержащий 4 строки и 4 столбца.Элементами массива являются вещественные числа.Упорядочить в массиве по возрастанию...

Упорядочить элементы строк матрицы по возрастанию, а сами строки по возрастанию произведения чётных элементов строк
Дана матрица X. Упорядочить элементы строк матрицы по возрастанию, а сами строки по возрастанию произведения чётных элементов строк...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru