Массив А(m,n) преобразовать в массив с(m,n), в котором из массива А все элементы больше 1 заменены на наименьший элемент из А.

uses crt;
const strok = 1000; stolbcov = 1000;
var
a,c: array [1..strok,1..stolbcov] of integer;
i,j,n,m: byte;
min: integer;
begin
write('Введите размерность массивов через пробел:');
readln(n,m);
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=-5+random(20);
c[i,j]:=a[i,j];
end;
writeln('Массив А:');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j],' ');
end;
writeln();
end;
min:=a[1,1];
for i:=1 to n do
for j:=2 to m do
if (a[i,j] < min) then
begin
min:=a[i,j];
end;
writeln('Преобразованный массив C:');
for i:=1 to n do
for j:=1 to m do
if (c[i,j] > 1) then
begin
c[i,j]:=min;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(c[i,j],' ');
end;
writeln();
end;
end.

var a,c:array[1..m,1..n]of integer;
     i,j,m,n,min:integer;
Begin
     readln(m,n);
     for i:=1 to m do begin
      for j:=1 to n do begin
         a[i,j]:=random(10)-5;
         write(a[i]:4);
      end;
      writeln;
     end;
     min:=a[1,1];
     for i:=1 to m do
       for j:=1 to n do
          if min>a[i,j] then min:=a[i,j];
     for i:=1 to m do
       for j:=1 to n do
           if c[i,j]>1 then c[i,j]:=min
           else c[i,j]:=a[i,j];
      writeln;
      writeln;
      for i:=1 to m do begin
         for j:=1 to n do begin
            write(c[i,j]:4);
         end;
         writeln;
       end;
End.

uses crt;
var
a,c: array [1..100,1..100] of integer;
i,j,n,m,min,x: integer;
begin
write(введите количество столбцов :  ');
read(m);
write(введите количество трок :  ');
read(n);
begin
for i:=1 to n do begin
x:=1;
for j:=1 to m do begin
gotoxy(x,i+5);
read(a[i,j]);
x:=x+5;
end;
end;
c[i,j]:=a[i,j];
writeln();
end;
min:=a[1,1];
for i:=1 to n do
for j:=2 to m do
if (a[i,j] < min) then
begin
min:=a[i,j];
end;
writeln('приобразованный массив C:');
for i:=1 to n do
for j:=1 to m do
if (c[i,j] > 1) then
begin
c[i,j]:=min;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
for i:=1 to n do begin
x:=1;
for j:=1 to m do begin
gotoxy(x,i+15);
write(c[i,j]);
x:=x+5;
end;
end;
end;
end;
readkey;
end.

uses crt;
var
a,c: array [1..100,1..100] of integer;
i,j: byte;
min: integer;
begin
for i:=1 to 100 do
for j:=1 to 100 do
begin
a[i,j]:=-5+random(20);
c[i,j]:=a[i,j];
end;
writeln('Массив А:');
for i:=1 to 100 do
begin
for j:=1 to 100 do
begin
write(a[i,j],' ');
end;
writeln();
end;
min:=a[1,1];
for i:=1 to 100 do
for j:=2 to 100 do
if (a[i,j] < min) then
begin
min:=a[i,j];
end;
writeln('Преобразованный массив C:');
for i:=1 to 100 do
for j:=1 to 100 do
if (c[i,j] > 1) then
begin
c[i,j]:=min;
end;
for i:=1 to 100 do
begin
for j:=1 to 100 do
begin
write(c[i,j],' ');
end;
writeln();
end;
end.