умножить все элементы массива на минимальный

[AlexP777]

Добрый вечер,

Подскажите ошибки в решении задачи.

Преобразовать массив, умножив элементы каждого столбца на минимальный элемент этого столбца.

вот как написано

program lab;
const N=5; M=5;
VAR A:ARRAY[1..N,1..M] of real;
    min:real; I,J:integer;
Begin
writeln(' A[ ', I,J,']');
readln(A[I,J]);
For I:=1 to N do
For J:=1 to M do
Readln(A[I,J]);
min:=A[I,J];
For J:=1 to M do
Begin
min:=5000;
For I:=1 to N do
if min> A[I,J] then min:=A[I,J];
writeln(min);
For I:=1 to N do
min:= A[I,J] * min;
writeln(min);
end;
Begin
Write('vvedite A[ ' ,I:1, ', J:1,] ' );
Readln(A[I,J]);
min:= min * A[I,J]
end;
Writeln(min)
End.

или вот второй вариант был...

program laba;
const n=5;
var a:array[1..n,1..n] of real;
  min:real; i,j:integer;
begin
min:=50000000;
writeln('vvedite massiv');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);

for i:=1 to n do
  begin
  if min>a[i,j] then min:=a[i,j];
  writeln;
  min:=a[i,j]*min;
  writeln(min);
  end;
end.

[whatever]

program lab;
const N=5; M=5;
VAR A:ARRAY[1..N,1..M] of real;
    min:real; I,J:integer;
Begin
writeln(' A[ ', I,J,']');
readln(A[I,J]);//i и j не инициализированы, скорее всего тут и вылетит
For I:=1 to N do
For J:=1 to M do
Readln(A[I,J]);
min:=A[I,J]; //зачем и почему?
For J:=1 to M do
Begin
min:=5000; //зачем?
For I:=1 to N do 
if min> A[I,J] then min:=A[I,J];
writeln(min);
For I:=1 to N do
min:= A[I,J] * min;
writeln(min);
end;// вот тут бы и закончить
Begin // зачем?
Write('vvedite A[ ' ,I:1, ', J:1,] ' );
Readln(A[I,J]);//ввели A[5,5], зачем?
min:= min * A[I,J]
end;
Writeln(min) 
End.

Второй код еще хуже. Сам то хоть пробовал запустить, посмотреть, что получится?

[BDA]

program lab;
const
  N = 3;
  M = 4;

VAR
  A: ARRAY [1 .. N, 1 .. M] of real;
  min: real;
  I, J: integer;

Begin
  For I := 1 to N do
    For J := 1 to M do
    begin
      write(' A[ ', I, ',', J, '] = ');
      readln(A[I, J]);
    end;
  writeln;
  writeln('Array:');
  For I := 1 to N do
  begin
    For J := 1 to M do
      write(A[I, J]:4:2, ' ');
    writeln;
  end;
  writeln;
  writeln('Mins:');
  For J := 1 to M do
  Begin
    min := A[1, J];
    For I := 2 to N do
      if min > A[I, J] then
        min := A[I, J];
    write(min:4:2, ' ');
    For I := 1 to N do
      A[I, J] := A[I, J] * min;
  end;
  writeln;
  writeln;
  writeln('Array:');
  For I := 1 to N do
  begin
    For J := 1 to M do
      write(A[I, J]:4:2, ' ');
    writeln;
  end;
  readln;
End.