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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 22.01.2011, 02:40   #1
YooooO!!!
 
Аватар для YooooO!!!
 
Регистрация: 21.01.2011
Сообщений: 9
По умолчанию ОТСОРТИРОВАТЬ максимумы по убыванию в матрице,а минимумы по возрастанию

Код:
Program pr;
uses crt;
var a:array [1..10,1..10]of integer;
var b:array [1..100]of integer;
n,m,e,j,i,h,t,k,o, max :integer;
begin
clrscr;
write('введие количество строк');read (m);
write('введите количество столбцов');read (n);
for i:= to m do
for j:=1 to n do
begin
gotoxy(1,3);write('введите a[',i,',',j,']');
read (a[i,j]);gotoxy(16,3);write(' ');
gotoxy (e+5*j,4+i);write (a[i,j]);
e:=5+e;
if j=n then e:=o;
end;
for i:=1 to n do
 begin
  max:=a[i,1];
  min:=a[i,1];
   for j:=2 to m do
     begin
       if a[i,j]>max then max:=a[i,j];
       if a[i,j]<min then min:=a[i,j];
     end;
  writeln;
  writeln('Min в ',i,' строке=',min,' ',',Max=',max);
end;
.....матрицу я построил найти наибольшие и наименьшие мне помогли.....а вот даль ваще беда ....ОТСОРТИРОВАТЬ эти максимумы по убыванию в матрице,а минимумы по возрастанию.Указать какое количество максимальных и минимальных элементов находица в каждом столбце!!!....: confused:...блин здавать через 8 часов

Последний раз редактировалось Stilet; 22.01.2011 в 14:20.
YooooO!!! вне форума Ответить с цитированием
Старый 22.01.2011, 14:21   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ты ничего не путаешь? Может тебе нужно получить вектор из экстремумов строк матрицы?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В массиве а (10) первую половину массива отсортировать по убыванию, вторую по возрастанию leon1405 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 19.12.2010 18:36
Сортировка по возрастанию и убыванию стажа betirsolt БД в Delphi 3 16.11.2010 17:52
минимумы и максимумы Delphin-666 Общие вопросы Delphi 9 15.06.2010 09:07
Отсортировать массив по убыванию в С++ sershok Помощь студентам 5 16.02.2009 00:31