Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ двумерный массив нид хелп

Автор: -111- 9.12.2006 5:04

помогите плз реализовать вот это :
Дана матрица X[n*m], расположить элементы столбцов заданной матрицы по убыванию , а сами столбцы по возрастанию сумм элементов столбцов.

Автор: Bokul 9.12.2006 5:16

В чем проблемы?
Все, что тебе надо находится здесь:
http://forum.pascal.net.ru/index.php?s=&showtopic=2694&view=findpost&p=38100
и
http://forum.pascal.net.ru/index.php?showtopic=3065

Автор: -111- 9.12.2006 5:20

я это всё перечитал - не получается нифига

Автор: Bokul 9.12.2006 5:25

Значит читай еще, пока не поймешь! Или же обращайся с конкретными вопросами по задачи! Никто без твоего участия делать не будет!

Автор: -111- 9.12.2006 18:53

Uses Crt;
Const N=3; M=5;
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.

Автор: -111- 10.12.2006 16:41

помогите плз хоть кто нить