Автор: Bronislav

Bronislav — Sun, 02 Sep 2018 11:28:22 +0000

program Matrix40;//pabc.net

begin
  var m := 10;
  var n := 10;
  
  var a := MatrRandom(m, n, 0, 9); a.Println;
  
  var MaxAlike := 0;//max amount alike elements in a row (among the rows)
  var k := m;
  
  for var i := m - 1 downto 0 do
  begin
    var AlikeInRow := n - a.Row(i).Distinct.Count; AlikeInRow.Println;
    if MaxAlike < AlikeInRow then 
    begin
      MaxAlike := AlikeInRow; 
      k := i + 1; 
    end;
  end;
  
  Write($'Row: {k}, most alike elmnts in the row: {MaxAlike}')
end.

program Matrix40;//pabc.net

begin

var m := 10;

var n := 10;

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

var MaxAlike := 0;//max amount alike elements in a row (among the rows)

var k := m;

for var i := m - 1 downto 0 do

begin

var AlikeInRow := n - a.Row(i).Distinct.Count; AlikeInRow.Println;

if MaxAlike < AlikeInRow then

begin

MaxAlike := AlikeInRow;

k := i + 1;

end;

Write($'Row: {k}, most alike elmnts in the row: {MaxAlike}')

end.

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

Автор: Bronislav