Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.01.2017, 13:33   #1
kabank
Новичок
Джуниор
 
Регистрация: 22.11.2016
Сообщений: 1
По умолчанию Поменять местами элементы половин параллельных диагоналей матрицы над главной и под побочной диагоналями - Pascal

Напишите программу которая меняет местами диагонали, выделенные пунктиром.(т.е. над половиной главной диагонали и под половиной побочной диагонали)
Изображения
Тип файла: jpg AG1wwOtLkg8.jpg (38.8 Кб, 116 просмотров)
kabank вне форума Ответить с цитированием
Старый 08.01.2017, 22:14   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
for i:=1 to (n div 2) do begin
  tmp := A[i,i];
  A[i,i] := A[n+1-i,i];
  A[n+1-i,i] := tmp
end;
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Суммы диагоналей матрицы, параллельных побочной(С++) anastasiyakrit Помощь студентам 3 15.11.2016 10:49
Поменять местами элементы квадратной матрицы, которые симметричны побочной диагонали. TIGERMAX777 Помощь студентам 7 16.09.2015 22:34
VBA: Построить вектор L, элементы которого равны разнице главной и побочной диагоналей матрицы K (m,m). Glazastik Помощь студентам 0 15.11.2014 17:36
Матрица. найти наибольшие элементы среди стоящих на главной и побочной диагоналях и поменять их местами (Delphi) simak12345 Помощь студентам 4 17.02.2013 20:48
найти наибольший элемент среди стоящих на главной и побочной диагоналях и поменять местами с эл-том на пересечении диагоналей (C#) Vovchik123 Помощь студентам 5 27.12.2011 00:01