Работа с двумерном массивом, ошибка в ответе (Pascal)

[artems67]

Здравствуйте,

Условие: Дан двумерный массив размера N, вывести его в виде таблицы. Также найти произведение наибольших значений по столбцам этой матрицы и их среднее значение.

Код программы:

Program raschetka_14;
  uses crt;
  Var A:array [1..100,1..100] of integer;
      i,j,max,S,q,P,N:integer;
      {i-строка массива;
      j-столбец массива;
      max-максимальное значение;
      S-cумма max элементов;
      q-кол-во max элементов в солбце;
      P-произведение max элементов;
      N-размерность массива.}
      Sr:real;
      {Sr-среднее значение}
    Begin
      clrscr;
      randomize;
      P:=1;
      {Задается размер двумерного массива A} 
      Write('N= ');
        readln(N);
      {Двумерный массив A заполняется рандомно}  
        begin
          For i:=1 to N do
            begin
              For j:=1 to N do
                begin
                  A[i,j]:=-10+random(20);
                  max:=A[1,1];
                end;
           end;
         end;
    clrscr;
    {Вывод двумерного массива A ввиде Таблицы}
    writeln('Таблица:');
    For i:=1 to N do
      begin
       For j:=1 to N do
        begin
          write(A[i,j]:4);
          if (j mod N) = 0 then writeln;
        end;
      end;
    {Нахождение произведение и ср.значение max элементов массива по столбцам}  
    For j:=1 to N do
      begin
        max:=A[1,j];
        For i:=1 to N do
         begin
            if max<A[i,j] then
               begin
                  max:=A[i,j];
                  P:=P*max;
                  S:=S+max;
                  q:=q+1;
              end; 
          end;   
       end;
    {Нахождение среднего значения}   
    Sr:=S/q;  
    writeln;
    {Вывод полученных значений}
    writeln('Ответ:');
      writeln('Сумма= ',S:4,' Кол-во max элементов= ',q:4,' Произведение= ',P:4,' Среднее значение= ',Sr:4:2);
    readln;
  End.

У меня возникла проблема конкретно с этим куском кода.

 {Нахождение произведение и ср.значение max элементов массива по столбцам}  
    For j:=1 to N do
      begin
        max:=A[1,j];
        For i:=1 to N do
         begin
            if max<A[i,j] then
               begin
                  max:=A[i,j];
                  P:=P*max;
                  S:=S+max;
                  q:=q+1;
              end; 
          end;   
       end;
    {Нахождение среднего значения}   
    Sr:=S/q;  
    writeln;
    {Вывод полученных значений}
    writeln('Ответ:');
      writeln('Сумма= ',S:4,' Кол-во max элементов= ',q:4,' Произведение= ',P:4,' Среднее значение= ',Sr:4:2);
    readln;
  End.

Вроде сделал всё по логике. Но вместо ответа выводит ересь. Прошу помочь мне разъяснить в чём я здесь неправ. Заранее благодарен!

[Stilet]

Запустил код у себя:
Безымянный.jpg
Что не так?

[artems67]

Сообщение от artems67

Также найти произведение наибольших значений по столбцам этой матрицы

Исходя из этой формулировки (задание дали в ВУЗе) я думал, что нужно max для КАЖДОГО столбца матрицы найти. Тогда по идеи кол-во max значений должно совпадать с кол-вом столбцов в матрице.

А у меня не совпадает.

По вышему скрину должно получиться:

Сумма = 9+9+1+8+8= 35
Кол-во max элементов = 1+1+1+1+1=5
Произведение = 9*9*1*8*8=5184
Ср.значение= 35/5 =7

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

UPD: Я понимаю, что моя программа работает по алгоритму, находя конкретно max значение для всей матрицы, но поиск осуществляется через столбцы.

Но вот это условие:

Также найти произведение наибольших значений по столбцам этой матрицы и их среднее значение.

Я понимаю двояко и склоняюсь больше к варианту max для КАЖДОГО столбца.

UPD2: Прогнал прогу, получил такой результат




Кол-во max значений в ответ и в матрице НЕ СОВПАДАЮТ. Почему так ? Где ошибка в моем коде ?

[Stilet]

Мдя... Подскажу как делать правильно:

Дан двумерный массив размера N, вывести его в виде таблицы. Также найти произведение наибольших значений по столбцам этой матрицы и их среднее значение.

  Var A:array [1..100,1..100] of integer; Max:Array[1..100] of integer;
      i,j,N,p:integer;
      Sr:real;
    Begin
      clrscr;
      randomize;
      P:=1;
      {Задается размер двумерного массива A} 
      Write('N= ');
        readln(N);
      {Двумерный массив A заполняется рандомно}  
        begin
          For i:=1 to N do
            begin
              For j:=1 to N do
                begin
                  A[i,j]:=-10+random(20);
                  if (max[j]<A[i,j]) or (i=1) then max[j]:=A[i,j];
                end;
           end;
         end;

    clrscr;
    {Вывод двумерного массива A ввиде Таблицы}
    writeln('Таблица:');
    For i:=1 to N do
      begin
       For j:=1 to N do
        begin
          write(A[i,j]:4);
        end; writeln;
      end;

writeln('Ответ:');
    {Нахождение произведение и ср.значение max элементов массива по столбцам}  
    For j:=1 to N do begin Sr:=Sr+max[j];p:=p*max[j]; end;
writeln('Сумма= ',S:4
 ,' Кол-во max элементов= ',N:4
 ,' Произведение= ',P:4
 ,' Среднее значение= ',Sr/N:4:2
);

    readln;
  End.

Вот как-то так...

[evg_m]

Кол-во max значений в ответ и в матрице НЕ СОВПАДАЮТ. Почему так ? Где ошибка в моем коде ?

Смотри комментарии

if max<A[i,j] then
               begin
                  max:=A[i,j]; //ЗАМЕНА на новый (лучший) максимальный 
                  P:=P*max; // не один раз на самый лучший а каждый раз при улучшении
                  S:=S+max;// прибавляем не ОДИН последний (лучший) а каждый лучший (смотри 
                  q:=q+1; // и КОЛИЧЕСТВО таких замен  но не количество м. эл-тов в строке(столбце) 
              end;

[artems67]

Stilet, спасибо большое за код исправленный. Программа заработала корректно. Интересный хинт с доп.массивом, возьму на вооружение

evg_m спасибо за комментарии, буду анализировать. )

P.S. Проблема решена. Тему можно закрыть.