Найти максимальный элемент

[maxim1592]

1. Найти максимальный элемент и поместить его в начало данной квадратной матрицы.
2. Вычислите и запомните сумму и число положительных элементов каждого столбца
Результат распечатайте в виде двух одномерных массивов.

[ZX Spectrum-128]

http://programmersforum.ru/showthread.php?t=70310

[maxim1592]

что в этой программе не так, почему выдает ошибку?

Program moving;
Var
 Matrix:Array[1..3,1..3] of byte = (2,2,2,3,3,3,1,1,1);
 PP:Byte;
 X,Y:Byte;
Begin
 Writeln('Äî');
 For Y:=1 to 3 do
  Begin
    For X:=1 to 3 do
     Write(Matrix[X,Y],' ');
    Writeln;
  End;
 PP := Matrix[3,3];
 Matrix[3,3] := Matrix[1,1];
 Matrix[1,1] := PP;
 Writeln('Ïîñëå');
  For Y:=1 to 3 do
  Begin
    For X:=1 to 3 do
     Write(Matrix[X,Y],' ');
    Writeln;
  End;
  ReadLn;
End.

[ZX Spectrum-128]

Вам нужно найти максимальный элемент и поменять его с первым, а вы меняете первый с последним.
Что вы делаете:
6 2 1
4 2 7
5 2 3
Вы меняете числа 6 и 3
А надо
макс = 7 меняем с 3
Как найти макс, описано по ссылке

[maxim1592]

мы ищем максимальный элемент

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

выдает ошибку на 3-й строке...а как сюда вписать программу меняющую макс. на первый элемент?



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

Модератор.

[ZX Spectrum-128]

{Найти максимальный элемент и поместить его в начало данной
квадратной матрицы.}

Program maximum;
const
  n=3;
Var
  Matrix:Array[1..n,1..n] of Integer;
  max,PP:Integer;
  imax,jmax,X,Y:Integer;

Begin
  randomize; 
  Writeln('До:');
  For x:=1 to n do
    Begin
      For y:=1 to n do
        begin
          Matrix[X,Y]:=random(100);
          Write(Matrix[X,Y],' ');
        end;
    Writeln;
  End;
  max := Matrix[1,1];
  For Y:=1 to n do
    For X:=1 to n do
    if Matrix[X,Y] > max Then
      begin
        max := Matrix[X,Y];
        imax:=x;
        jmax:=y
      end;
  Writeln('Mаксимум - ', max,' в позиции ',imax,',',jmax);
  pp:=matrix[1,1];
  matrix[1,1]:=matrix[imax,jmax];
  matrix[imax,jmax]:=pp;

  Writeln('После:');
  For x:=1 to n do
    Begin
      For y:=1 to n do
        begin
          Write(Matrix[X,Y],' ');
        end;
    Writeln;
  End;

  ReadLn;
End.