Matrix79. Решебник Абрамяна М. Э.

Matrix79. Дана матрица размера M × N. Упорядочить ее столбцы так, чтобы их максимальные элементы образовывали возрастающую последовательность.

Решение Pascal

 

Оцените решение
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (Пока оценок нет)
Загрузка...

Matrix79. Решебник Абрамяна М. Э.: 1 комментарий

  • 25.06.2022
    Permalink

    program matrix79;

    type
    matrix=array[1..9,1..9] of integer;

    procedure Obmen(var i,j,m:integer;var a:matrix);
    var
    i1,i2:integer;
    begin

    i2:=m+1;

    for i1:=1 to i2 do begin

    a[i1,i]:=a[i1,i]+a[i1,j];
    a[i1,j]:=a[i1,i]-a[i1,j];
    a[i1,i]:=a[i1,i]-a[i1,j];
    end;
    end;

    var
    a,b:matrix;
    max,i1,kkk,k1,k2,k3,i,j,m,n:integer;

    begin

    m:=8;n:=8;kkk:=64;
    randomize;
    for i:=1 to m do begin
    for j:=1 to n do begin;
    a[i,j]:=random(50)+40;
    end;
    end;
    b:=a;
    writeln();
    for i:=1 to m do begin
    for j:=1 to n do begin
    write(a[i,j],’ ‘);
    end;
    writeln();
    end;

    for j:=1 to n do begin
    max:=a[1,j];
    for i:=1 to m do begin
    if a[i,j]>=max then begin max:=a[i,j];a[n+1,j]:=max; end;
    end;
    end;

    for j:=1 to n-1 do begin
    for i:=j+1 to n do begin
    if a[m+1,j]>a[m+1,i] then begin k1:=j;k2:=i;k3:=m;Obmen(k1,k2,k3,a); end;
    end;

    end;

    writeln();

    for i:=1 to m+1 do begin
    for j:=1 to n do begin
    write(a[i,j],’ ‘);
    end;
    writeln();
    end;

    end.

    Ответ

Добавить комментарий

Ваш адрес email не будет опубликован.

Решебник Абрамяна М. Э. на Pascal и С++. Двумерные массивы (матрицы): группа Matrix (1-100)

Matrix1. Решебник Абрамяна М. Э.
Matrix2. Решебник Абрамяна М. Э.
Matrix3. Решебник Абрамяна М. Э.
Matrix4. Решебник Абрамяна М. Э.
Matrix5. Решебник Абрамяна М. Э.
Matrix6. Решебник Абрамяна М. Э.
Matrix7. Решебник Абрамяна М. Э.
Matrix8. Решебник Абрамяна М. Э.
Matrix9. Решебник Абрамяна М. Э.
Matrix10. Решебник Абрамяна М. Э.
Matrix11. Решебник Абрамяна М. Э.
Matrix12. Решебник Абрамяна М. Э.
Matrix13. Решебник Абрамяна М. Э.
Matrix14. Решебник Абрамяна М. Э.
Matrix15. Решебник Абрамяна М. Э.
Matrix16. Решебник Абрамяна М. Э.
Matrix17. Решебник Абрамяна М. Э.
Matrix18. Решебник Абрамяна М. Э.
Matrix19. Решебник Абрамяна М. Э.
Matrix20. Решебник Абрамяна М. Э.
Matrix21. Решебник Абрамяна М. Э.
Matrix22. Решебник Абрамяна М. Э.
Matrix23. Решебник Абрамяна М. Э.
Matrix24. Решебник Абрамяна М. Э.
Matrix25. Решебник Абрамяна М. Э.
Matrix26. Решебник Абрамяна М. Э.
Matrix27. Решебник Абрамяна М. Э.
Matrix28. Решебник Абрамяна М. Э.
Matrix29. Решебник Абрамяна М. Э.
Matrix30. Решебник Абрамяна М. Э.
Matrix31. Решебник Абрамяна М. Э.
Matrix32. Решебник Абрамяна М. Э.
Matrix33. Решебник Абрамяна М. Э.
Matrix34. Решебник Абрамяна М. Э.
Matrix35. Решебник Абрамяна М. Э.
Matrix36. Решебник Абрамяна М. Э.
Matrix37. Решебник Абрамяна М. Э.
Matrix38. Решебник Абрамяна М. Э.
Matrix39. Решебник Абрамяна М. Э.
Matrix40. Решебник Абрамяна М. Э.
Matrix41. Решебник Абрамяна М. Э.
Matrix42. Решебник Абрамяна М. Э.
Matrix43. Решебник Абрамяна М. Э.
Matrix44. Решебник Абрамяна М. Э.
Matrix45. Решебник Абрамяна М. Э.
Matrix46. Решебник Абрамяна М. Э.
Matrix47. Решебник Абрамяна М. Э.
Matrix48. Решебник Абрамяна М. Э.
Matrix49. Решебник Абрамяна М. Э.
Matrix50. Решебник Абрамяна М. Э.
Matrix51. Решебник Абрамяна М. Э.
Matrix52. Решебник Абрамяна М. Э.
Matrix53. Решебник Абрамяна М. Э.
Matrix54. Решебник Абрамяна М. Э.
Matrix55. Решебник Абрамяна М. Э.
Matrix56. Решебник Абрамяна М. Э.
Matrix57. Решебник Абрамяна М. Э.
Matrix58. Решебник Абрамяна М. Э.
Matrix59. Решебник Абрамяна М. Э.
Matrix60. Решебник Абрамяна М. Э.
Matrix61. Решебник Абрамяна М. Э.
Matrix62. Решебник Абрамяна М. Э.
Matrix63. Решебник Абрамяна М. Э.
Matrix64. Решебник Абрамяна М. Э.
Matrix65. Решебник Абрамяна М. Э.
Matrix66. Решебник Абрамяна М. Э.
Matrix67. Решебник Абрамяна М. Э.
Matrix68. Решебник Абрамяна М. Э.
Matrix69. Решебник Абрамяна М. Э.
Matrix70. Решебник Абрамяна М. Э.
Matrix71. Решебник Абрамяна М. Э.
Matrix72. Решебник Абрамяна М. Э.
Matrix73. Решебник Абрамяна М. Э.
Matrix74. Решебник Абрамяна М. Э.
Matrix75. Решебник Абрамяна М. Э.
Matrix76. Решебник Абрамяна М. Э.
Matrix77. Решебник Абрамяна М. Э.
Matrix78. Решебник Абрамяна М. Э.
Matrix79. Решебник Абрамяна М. Э.
Matrix80. Решебник Абрамяна М. Э.
Matrix81. Решебник Абрамяна М. Э.
Matrix82. Решебник Абрамяна М. Э.
Matrix83. Решебник Абрамяна М. Э.
Matrix84. Решебник Абрамяна М. Э.
Matrix85. Решебник Абрамяна М. Э.
Matrix86. Решебник Абрамяна М. Э.
Matrix87. Решебник Абрамяна М. Э.
Matrix88. Решебник Абрамяна М. Э.
Matrix89. Решебник Абрамяна М. Э.
Matrix90. Решебник Абрамяна М. Э.
Matrix91. Решебник Абрамяна М. Э.
Matrix92. Решебник Абрамяна М. Э.
Matrix93. Решебник Абрамяна М. Э.
Matrix94. Решебник Абрамяна М. Э.
Matrix95. Решебник Абрамяна М. Э.
Matrix96. Решебник Абрамяна М. Э.
Matrix97. Решебник Абрамяна М. Э.
Matrix98. Решебник Абрамяна М. Э.
Matrix99. Решебник Абрамяна М. Э.
Matrix100. Решебник Абрамяна М. Э.