двумерный массив..преобразование и поиск минимума..в чем ошибка?

[XanderXage]

вот задача: ввести двумерный массив А размерностью n*m и вывести его.преобразовать исходный массив путем сложения его элементов с произведением элементов того столбца,который содержит минимальный элемент всего массива.


решение вроде как есть но ошибка с произведением:

Program Lab2;
  const
  Nmax=10 ;
  Mmax=10;
  var
    N:byte;   {eiee?anoai no?ie}
    M:Byte;   {eiee?anoai noieaoia}
    A:array[1..Nmax,1..Mmax] of real;
    i,J,Imin:byte;
    Min,pro:real;
  Begin
    write ('Aaaaeoa eiee?anoai no?ie ');
    readln(N);
    write ('Aaaaeoa eiee?aonai noieaoia ');
    readln(M);
    writeln ('Caiieieoa iannea A:');
    for i:=1 to N do
      for j:=1 to M do
        begin
          write('A[',I,',',j,']=');
          readln(A[i,j]);
        end;
    writeln ('Aaia iao?eou A caaa?oai.');

    min:=A[1,1];
    for j:=1 to M do
      for i:=1 to N do
        if min>A[i,j] then
          begin
            Min:=A[I,J];
            Imin:=i;
          end;


    pro:=1;

    for j:=1 to m do
     pro:=   PRO   *A[Imin,j];
    Writeln('pro',pro);
    for i:=1 to n do
      for j:=1 to M do
        Writeln('A[',I,',',J,']=',A[I,J]+Pro);
    end.

подскажите в чем ошибка?

[Stilet]

Неоптимален код... очень неоптимален...
Ну да ладно, вот поправил - теперь должен правильно считать.

const
  Nmax=10 ;
  Mmax=10;
  var
    N:byte;   {eiee?anoai no?ie}
    M:Byte;   {eiee?anoai noieaoia}
    A:array[1..Nmax,1..Mmax] of real;
    i,J,Imin:byte;
    Min,pro:real;
  Begin
    n:=5;m:=6;
    writeln ('Caiieieoa iannea A:');
    for i:=1 to N do  begin
      for j:=1 to M do
        begin
          a[i,j]:=(random(10)+1);
          write(a[i,j]:7:2);
        end;
      writeln;
     end;
    writeln ('Aaia iao?eou A caaa?oai.');
       {$o-}
    min:=A[1,1]; Imin:=1;
    for j:=1 to M do
      for i:=1 to N do
        if min>A[j,i] then
          begin
            Min:=A[j,i];
            Imin:=i;
          end;


    pro:=1;

    for j:=1 to n do
     pro:=   PRO*A[j,imin];
    Writeln('pro',pro:10:3);
    for i:=1 to n do begin
      for j:=1 to M do
        Write((A[I,J]+Pro):10:3);
      writeln;
    end;
readln;
    end.

[XanderXage]

спсибо..но тут автоматический ввод массива а мне нужен ручной

[Stilet]

спсибо..но тут автоматический ввод массива а мне нужен ручной

Ну оставь свой вариант ввода.

[XanderXage]

да спасибо так и сделал все работает