Как записать все элементы матрицы в порядке неубывания?

[May_Be]

Уважаемые форумчане!
Столкнулась с такой проблемой: завтра контрольная, дан примерный тип задач. Помогите пожалуйста разобраться с такими кусками программ:
1) как записать все элементы матрицы в порядке неубывания.
2) найти наименьшее из чисел последовательности, в котором есть хотя бы две одинаковые цифры

Подскажите пожалуйста! Очень рассчитываю на Вашу помощь

[Veselyn]

Сообщение от May_Be

1) как записать все элементы матрицы в порядке неубывания.

Запиши в порядке наростания

[May_Be]

ха, это мне ооочень помогло..

[Veselyn]

Воспользуйся поиском. Здесь есть готовые решения

[psycho-coder]

1) Pascal. Вроде так. Писал прямо сюда.

var
  tmp, i, l: Integer;

begin
  max := mas[0, 0];
  for i := 0 to <размер массива - 1> do
    for l := 0 to <размер массива - 1> do
      if mas[j] < mas[i] then
      begin
        tmp := mas[j];
        mas[j] := mas[i];
        mas[i] := tmp;
      end;
end.

[May_Be]

Сообщение от psycho-coder

1) Pascal. Вроде так. Писал прямо сюда.

      if mas[j] < mas[i] then

я ошибаюсь, или вы вместо матрицы записали просто массив?

[psycho-coder]

Да, я ошибся.
А вот Вы, допишите уж сами до матрицы Принцип тот же.

[May_Be]

я чуть подправила, но что-то не выходит..по-моему, я не так сравниваю. подскажите пожалуйста где подправить

 
uses crt;
 var
    tmp,n,m,i,j,max:integer;
     mas:array[1..100,1..100] of integer;
 begin
  write("Введите количество строк и столбцов "); read(n,m);
   for i:=1 to n do
    for j:=1 to m do
      read(mas[i,j]);
       max:=mas[1,1];
        for i:=1 to n-1 do
          for j:=1 to m-1 do
           if mas[i,j]<mas[i+1,j] then
            begin
             tmp:=mas[i,j];
             mas[i,j]:=mas[i+1,j];
             mas[i+1,j]:=tmp;
            end;
        for i:=1 to n do
        for j:=1 to m do
         write(mas[i,j]);
           readkey;
end.

p.s. подскажите пожалуйста какие-нибудь книги или может быть сайты (ну, не считая этот ), которые помогут понять структуру и способы программирования в целом. А то я, если честно, дубина совсем.
Спасибо заранее.

[psycho-coder]

Вот здесь

for i:=1 to n-1 do
          for j:=1 to m-1 do

если не ошибаюсь должно быть два вложенных цикла, а не один

[May_Be]

Сообщение от psycho-coder

Вот здесь

for i:=1 to n-1 do
          for j:=1 to m-1 do

если не ошибаюсь должно быть два вложенных цикла, а не один

то есть продублировать эти строчки?