[hsMapk]

В программе твориться просто чертовщина, а под конец вообще ошибку стало выдавать. Надоело компилятор мучать. Помогите плиз.


Вот условие:

Если максимальный элемент матрицы больше удвоенного среднего арифметического значения всех элементов матрицы, то элементы строк матрицы упорядочить по убыванию, в противном случае матрицу оставить без изменения.

Вся проблема в попытке найти удвоенное среднего арифметическое значение всех элементов матрицы.

вот архивчик:
https://vk.com/doc96340304_312248788

[Страдалецъ]

Код:

program Project32;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

Const
  N = 5;

Var
  i,j,k: Integer;
  MaxValue, MidValue, Value: Double;
  AMatrix: Array[1..N,1..N] of Double;
  AVector: Array[1..N] of Double;
begin
 MaxValue := 0;
 for i := 1 to N
 do begin
    for j := 1 to N
    do begin
       AMatrix[i,j] := Random(100);
       Write(AMatrix[i,j]:4:0);
       if MaxValue < AMatrix[i,j] then MaxValue := AMatrix[i,j];
       end;
    AVector[i] := Mean(AMatrix[i]);
    WriteLn;
    end;
 MidValue := Mean(AVector);
 if MaxValue > 2 * MidValue
 then begin
      for i := 1 to N
      do for j := 1 to N - 1
         do for k := j + 1 to N
            do if AMatrix[i, j] < AMatrix[i, k]
               then begin
                    Value := AMatrix[i, j];
                    AMatrix[i, j] := AMatrix[i, k];
                    AMatrix[i, k] := Value;
                    end;
      WriteLn;
      for i := 1 to N
      do begin
         for j := 1 to N
         do Write(AMatrix[i,j]:4:0);
         WriteLn;
         end;
      end;
 ReadLn;
end.