Матрица nxm.

[Flaik]

Здравствуйте! Решите пожалуйста задачу, надо срочно=)

Дана матрица NxM. Отсортировать по возрастанию элементы стоящие по периметру матрицы, начиная с элемента A(n,1) по часовой стрелке. Среди элементов, находящихся внутри периметра найти максимум и минимум с указанием индексов.

p.s. могу заплатить если будет нужно

[<- DelpHIFanat ->]

Решил задачу.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Const
  N0=100;

Var
  A: Array[0..N0-1, 0..N0-1] Of Integer;
  Mas: Array[0..4*N0-1] Of Integer;
  k, Tmp: Integer;
  i, j, N, M: Byte;

begin

  Repeat
    Write(' N = ');
    ReadLn(N);
  Until (N In [1..N0]);

  Repeat
    Write(' M = ');
    ReadLn(M);
  Until (N In [1..N0]);

  k:=0;
  Randomize;
  For i:=0 To N-1 Do
    Begin
      For j:=0 To M-1 Do
        Begin
          A[i, j]:=Random(100);
          Write(' ', A[i, j]: 3);
          If ((i=0) Or (j=0) Or (i=N-1) Or (j=M-1)) Then
            Begin
              Mas[k]:=A[i, j];
              Inc(k);
            End;
        End;
      WriteLn;
    End;

  WriteLn;

  For i:=0 To K-2 Do
    For j:=i+1 To K-1 Do
      If (Mas[i]>Mas[j]) Then
        Begin
          Tmp:=Mas[i];
          Mas[i]:=Mas[j];
          Mas[j]:=Tmp;
        End;

  WriteLn;
  WriteLn('-------------------------------');
  WriteLn;

  k:=0;
  j:=0;
  For i:=N-1 DownTo 0 Do
    Begin
      A[i, j]:=Mas[k];
      Inc(k);
    End;

  i:=0;
  For j:=1 To M-1 Do
    Begin
      A[i, j]:=Mas[k];
      Inc(k);
    End;

  j:=M-1;
  For i:=1 To N-1 Do
    Begin
      A[i, j]:=Mas[k];
      Inc(k);
    End;

  i:=N-1;
  For j:=M-2 DownTo 1 Do
    Begin
      A[i, j]:=Mas[k];
      Inc(k);
    End;

  For i:=0 To N-1 Do
    Begin
      For j:=0 To M-1 Do
        Write(' ', A[i, j]: 3);
      WriteLn;
    End;

  ReadLn;
end.

[Flaik]

спасибо большое за проделанную работу, но мне нужна задача в паскале=)

[<- DelpHIFanat ->]

А этот код чем-то от паскалевского сильно отличается? Нужно его скопировать, начиная со слова Const... Ну, а модуль Crt добавить и очистку экрана сделать, я так думаю, не составит большого труда... И совет на будущее: хорошо было бы сразу написать язык программирования, на котором надо решить (но всё-таки призываю решать самому, а то так программировать не научиться: Вас никто не натаскает, если сами себя натаскивать не будете).

[Flaik]

спасибо =)