Помощь - Поиск - Пользователи - Календарь
Полная версия: сортировка 2-массива
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
-KOT-
дана матрица X[n*m].расположить элементы столбцов заданной матрицы по убыванию , а сами столбцы по возрастанию.


помогите плз написать главный цикл сортировки в середине проги .

type Mas=array[1..N,1..M] of real;
Var X:Mas;
i, j, Imax, Jmax,f: integer;
Xmax,y:real;
BEGIN
{zapolnenie massiva}
Randomize;
For i:=1 to N do
For j:=1 to M do
X[i,j]:=Random(100)/10-5;










{vyvod rezyltata}
ClrScr;
Writeln('isxodnyu massiv');
For i:=1 to N do
begin
For j:=1 to M do Write (X[i,j]:6:2);
Writeln
end;
Writeln;
Writeln('maksimalnyu element massiva =', Xmax:2:2);
Writeln('stroka ego =',Imax);
Writeln('stolbec ego =',Jmax);
readln
END.
volvo
Цитата
а сами столбцы по возрастанию.
По возрастанию ЧЕГО? Суммы элементов? Произведения элементов? Количества нулей в столбце? ...

Уточняй...
-KOT-
Цитата(volvo @ 21.11.2006 16:32) *

По возрастанию ЧЕГО? Суммы элементов? Произведения элементов? Количества нулей в столбце? ...

Уточняй...

по возростанию сумм элементов стобцов.
-KOT-
помогите плз хоть кто нибудь
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.