Автор: Bronislav

Bronislav — Sun, 02 Sep 2018 12:50:56 +0000

program Matrix42;//pabc.net

begin
  var m := 10;
  var n := 3;
  
  var a := MatrRandom(m, n, 0, 100); a.Println;
  
  var count := 0;
  
  for var i := 0 to m - 1 do
  begin
    var b := a.Row(i).Sorted;
    if a.Row(i).SequenceEqual(b) then count += 1;
  end;
  
  Print('count =', count)
end.

program Matrix42;//pabc.net

begin

var m := 10;

var n := 3;

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

var count := 0;

for var i := 0 to m - 1 do

begin

var b := a.Row(i).Sorted;

if a.Row(i).SequenceEqual(b) then count += 1;

end;

Print('count =', count)

end.

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

Автор: Bronislav