(Pascal) Сформировать двумерный массив из целых чисел, записанный по столбцам, найти номер строки с наибольшим средним арифметическим значением

[alice.grape]

Uses
 CRT;
Const
 nmax=20;
 mmax=20;
var
 X:array[1..nmax,1..mmax] of integer;
 N,M,Count:integer;
 S,sum:real;
Begin
randomize;
FOR M:=  1 to mmax DO
begin
FOR N:= 1 to nmax DO
begin
   X[N,M]:=random(10)-3;
  write(X[N,M]:3);
 end;
writeln;
end;
writeln;
FOR N:=  1 to nmax DO
begin
sum:=0;
Count:=0;
FOR M:= 1 to mmax DO
if X[N,M]> X[N+1,M] then begin
FOR M:= 1 to mmax DO
  sum:=sum+X[N,M];
  S:= sum/mmax;end;end;

End.

[Алексей_2012]

Вариант с использованием дополнительного массива

var
  a: array of array of integer;
  sred: array of real;
  i, j, n, max_sr: integer;
  max: real;
  s: string;

begin
  
  write('Введите размер массива (матрицы)...');
  readln(n);
  
  if n <= 0 then   
    writeln('Массив должен состоять больше чем из одного элемента!') else
  begin
    
    setlength(a, n); //инициализируем размер массива
    for i := 0 to n - 1 do 
      setlength(a[i], n); // инициализирум элемент каждой строки для столбца
    
    setlength(sred, n); //инициализируем массив со среднем арифметическим каждой строки массива a
    
    
    Randomize; //"встряхиваем" числовую "тарелку" рандомных чисел
    
    writeln('Заполненный рандомом массив: ');
    
    for i := 0 to n - 1 do
    begin
      sred[i] := 0; // обнуляем массив sred для корректного суммирования
      for j := 0 to n - 1 do
      begin
        a[i][j] := Random(150); //заполняем массив
        
        sred[i] := sred[i] + a[i][j]; //вычисляем среднее арифметическое массива А и записываем в массив sred
        
        write(a[i][j], ' ');// выводим массив А
      end;
      sred[i] := sred[i] / n; // присваиваем значение суммы элементов массива А деленное на общее количество элементов в строке
      writeln();
    end;
    
    writeln('');
    writeln('Ваш результат:');
    writeln('Сренднее арифметическое каждой строки...');
    
    
    s := '';
    
    
    max := sred[0];
    
    
    for i := 0 to n - 1 do    
    begin
      writeln('строка ', i + 1, ' = ', sred[i]);
      if sred[i] > max then 
      begin
        max_sr := i;
        max := sred[i];
      end;  
    end;
    
       
    
    for i := 0 to n - 1 do s := s + ' ' + a[max_sr][i];

    
    writeln('Столбец с максимальным средним арифметическим значением: ', max_sr + 1, ' строка: ', s);
    
    
    sred := nil;//освобождаем память массивов
    a := nil;
  end;
  
  writeln('Нажмите Enter');
  readln;
  
  
end.

либо второй вариант без дополнительного массива

var
  a: array of array of integer;
  sred, max: real;
  i, j, n, max_sr: integer;
  
  s: string;

begin
  
  write('Введите размер массива (матрицы)...');
  readln(n);
  
  if n <= 0 then   
    writeln('Массив должен состоять больше чем из одного элемента!') else
  begin
    
    setlength(a, n); //инициализируем размер массива
    for i := 0 to n - 1 do 
      setlength(a[i], n); // инициализирум элемент каждой строки для столбца
    
    
    
    
    Randomize; //"встряхиваем" числовую "тарелку" рандомных чисел
    
    writeln('Заполненный рандомом массив: ');
    
    for i := 0 to n - 1 do
    begin
      
      sred := 0; // обнуляем массив sred для корректного суммирования
      
      for j := 0 to n - 1 do
      begin
        a[i][j] := Random(150); //заполняем массив
        
        sred := sred + a[i][j]; //вычисляем среднее арифметическое массива А и записываем в массив sred
        
        write(a[i][j], ' ');// выводим массив А
      end;
      sred := sred / n; // присваиваем значение суммы элементов массива А деленное на общее количество элементов в строке
      WRITE('; sred[', sred, ']');
      writeln();
      
      
      if i = 0 then max := sred else       
      
      if (sred > max) then
      begin
        max_sr := i;
        max := sred;
      end;
      
      
    end;
    
    writeln('');
    writeln('Ваш результат:');
        
    
    s := '';
              
    for i := 0 to n - 1 do s := s + ' ' + a[max_sr][i];
    
    
    writeln('Столбец с максимальным средним арифметическим значением: ', max_sr + 1, ' строка: ', s);
    
    
    a := nil;
  end;
  
  writeln('Нажмите Enter');
  readln;
  
  
end.

[alice.grape]

Алексей_2012, вы сделали для одномерного(

[Алексей_2012]

  a: array of array of integer;

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

МАССИВ а - ДВУМЕРНЫЙ ДИНАМИЧЕСКИЙ МАССИВ!