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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.12.2011, 22:25   #1
Rinka1
 
Регистрация: 18.10.2011
Сообщений: 4
По умолчанию Написать программу в Delphi.Двумерный массив.

Найти минимальные элементы каждой строки матрицы X(n x m) и поместить их на главную диагональ, а диагональные элементы записать на место минимальных.
Rinka1 вне форума Ответить с цитированием
Старый 14.12.2011, 22:39   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
for i:=1 to n do
begin
maxj:=1;
For j:=2 to m do
if a[i,j]<a[i,maxj] then maxj:=j;
a[i,i]:=a[i,i]+a[i,maxj] ;
a[i,maxj]:=a[i,i]-a[i,maxj];
a[i,i]:=a[i,i]-a[i,maxj];
end;
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Двумерный массив Delphi MrMorozko Помощь студентам 10 24.11.2013 19:56
двумерный массив. вывести все строки, содержащие хотя бы один "0"(ноль) (написать через функцию в Delphi) BLADIMIR Помощь студентам 4 07.09.2011 21:24
Delphi двумерный массив ДваДваВо7 Помощь студентам 2 08.12.2010 17:19
нужно доделать программу на паскале(двумерный массив) Venesia Помощь студентам 12 06.12.2010 19:28
Delphi Двумерный массив forumu Помощь студентам 3 24.12.2007 13:58