Автор: Anton

Anton — Sun, 08 Sep 2019 14:09:08 +0000

В ответ на Денис. В borland pascal нет процедуры Swap. А если вы пользуетесь ABS паскаль, то да ... наверно вам можно закоментить данную функцию...

Автор: Денис

Денис — Fri, 06 Sep 2019 16:14:40 +0000

Зачем описывать процедуру Swap, если в паскале есть встроенная swap?

Автор: Bronislav

Bronislav — Tue, 04 Sep 2018 11:15:30 +0000

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

program Matrix49;//pabc.net

begin
  var m := 5;
  var n := 6;
  
  var a := MatrRandom(m, n, 0, 10); a.Println;
  
  for var i := 0 to m - 1 do
  begin
    var Min := a.Row(i).Min;
    var Max := a.Row(i).Max;
    for var j := 0 to n - 1 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;
  
  Println;
  a.Println;
end.

program Matrix49;//pabc.net

begin

var m := 5;

var n := 6;

var a := MatrRandom(m, n, 0, 10); a.Println;

for var i := 0 to m - 1 do

begin

var Min := a.Row(i).Min;

var Max := a.Row(i).Max;

for var j := 0 to n - 1 do

begin

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

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

end;

Println;

a.Println;

end.

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

Автор: Anton

Автор: Денис

Автор: Bronislav