поиск и сортировка

[sashunechka]

№1 Упорядочить по неубыванию каждую строку матрицы A(m,n), а после это перестановкой строк упорядочить всю матрицу по неубыванию элементов 1-го столбца.
№2 дана целочисленная прямоугольная таблица А(1:100,1:500).найти наибольшее из чисел,встречающихся в этой таблице.

[sashunechka]

сдела вторую задачу,но наибольшее значение всегда выдает 0:

Program maximum;
Var
 Matrix:Array[1..100,1..500] of integer;
 PP:Byte;
 X,Y:integer;
Begin
 Writeln('До');
 ReadLn(X,Y);
 For Y:=1 to 500 do
  Begin 
    For X:=1 to 100 do
     Write(Matrix[X,Y],' ');
    Writeln;
  End;
 PP := Matrix[1,1];
 For Y:=1 to 500 do
  For X:=1 to 100 do
   if Matrix[X,Y] < PP Then PP := Matrix[X,Y];
 Writeln('Mаксимум - ', PP);
  ReadLn;
End.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) потому что в матрице числа сами по себе не появятся.
И надо матрицу предварительно заполнить.
Допустим, случайными числами:

 Randomize;
 For X:=1 to 100 do
    For Y:=1 to 500 do
       Matrix[X,Y] := Random(1000); {случ.числа [0.. 999]  }

2)

 PP : byte

байта не хватит! Нужно переменную всегда делать того же типа, что и элементы массива.
иначе нельзя писать: PP := Matrix[X,Y];
т.е. надо:

var
...
   PP : integer;

3) не путайте первую координату матрицы и вторую....

4) что за ввод вначале программы:

Writeln('До');
 ReadLn(X,Y);

Что за "ДО" ? Почему не "РЕ" или "МИ" или "ЛЯ", наконец?!
И после того, как ввели X и Y - зачем?! Вы же их не используете (а сразу стираете, т.е. используете эти же переменные как переменные цикла).

Это так... замечания навскидку...

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

[sashunechka]

прошу прощения,спасибо за замечания и помощь.