Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 03.11.2012, 13:36   #1
shbn
 
Регистрация: 05.10.2012
Сообщений: 4
По умолчанию метод линейного выбора сортировки массива

Дана действительная матрица A размерности n*n . Если максимальный элемент среди элементов, расположенных выше главной диагонали, больше максимального из эле-ментов, расположенных ниже главной диагонали, то упорядочить элементы каждой строки матрицы по убыванию методом линейного выбора. В противном случае матрицу оставить без изменения.


Program lab2_3;
uses
crt;
var
A : array[1..100, 1..100] of integer;
n, i, j, max_1,max_2, : integer;
begin
clrscr;
write ( 'размерность* N=' );
readln (N);
writeln ( 'введите элементы*' );
for i := 1 to n do
for j := 1 to n do
begin
write ( 'A[' , i, j, ']=' );
readln ( A[ i, j] );
end;

clrscr;
writeln ( 'массив A: ' );
for i := 1 to n do
begin
for j:= 1 to n do
write ( A[ i, j ] : 5 );
writeln;
end;
max_1:=A[1,n];
for i:=2 to n do
for j:=1 to n do
if (A[i,j]>max_1) and (i <= j)
then max_1:=A[i,j];
max_2:=A[1,n];
for i:=2 to n do
for j:=1 to n do
if (A[i,j]>max_2) and (i >= j)
then max_2:=a[i,j];
if max_1>max_2 then

что дальше?
shbn вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Симплекс метод для решения задач линейного программирования zarinac Помощь студентам 3 16.03.2012 15:02
Реализовать метод линейного двунаправленного списка alexz29 Общие вопросы C/C++ 0 27.12.2010 00:41
Метод линейного программирования, желательно в делфи Марат1510 Помощь студентам 0 08.12.2010 16:59
Сортировки на идее выбора andis Помощь студентам 4 06.03.2010 22:58
Паскаль. процедура сортировки числового массива методом выбора Оксаночка:) Помощь студентам 2 24.08.2009 10:41


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS