Автор: Bronislav

Bronislav — Tue, 04 Sep 2018 14:01:52 +0000

см комментарий к предыдущей задаче

program Matrix50;//fpc

uses TaskMatrix;

var
  a: intMatrix;
  m, n, i, j, Min, Max: integer;

begin
  m := 5;
  n := 6;
  
  FillMatrixByRandom(a, m, n, 0, 10);
  PrintMatrix(a, m, n);
  
  for j := 1 to n do
  begin
    Min := a[1, j];
    Max := a[1, j];
    for i := 2 to m do
    begin
      if a[i, j] < Min then Min := a[i, j];
      if a[i, j] > Max then Max := a[i, j]
    end;
    for i := 1 to m do
    begin
      if a[i, j] = Min then a[i, j] := Max
      else if a[i, j] = Max then a[i, j] := Min;
    end;
  end;
  
  Writeln;
  PrintMatrix(a, m, n)
end.

program Matrix50;//fpc

uses TaskMatrix;

var

a: intMatrix;

m, n, i, j, Min, Max: integer;

begin

m := 5;

n := 6;

FillMatrixByRandom(a, m, n, 0, 10);

PrintMatrix(a, m, n);

for j := 1 to n do

begin

Min := a[1, j];

Max := a[1, j];

for i := 2 to m do

begin

if a[i, j] < Min then Min := a[i, j];

if a[i, j] > Max then Max := a[i, j]

end;

for i := 1 to m do

begin

if a[i, j] = Min then a[i, j] := Max

else if a[i, j] = Max then a[i, j] := Min;

end;

Writeln;

PrintMatrix(a, m, n)

end.

Комментарии: Решаем задачи Абрамян на Паскале. Matrix50

Автор: Bronislav