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

Matrix74. Дана матрица размера M × N. Элемент матрицы называется ее локальным минимумом, если он меньше всех окружающих его элементов. Заменить все локальные минимумы данной матрицы на нули. При решении допускается использовать вспомогательную матрицу.

Решение Pascal

 

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

Matrix74. Решебник Абрамяна М. Э.: 2 комментария

  • 22.06.2022
    Permalink

    program matrix74;

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

    var
    a,b:matrix;
    i,j,m,n:integer;

    begin

    m:=8;n:=8;
    randomize;
    for i:=1 to m do begin
    for j:=1 to n do begin;
    a[i,j]:=random(-50)+10;
    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 i:=1 to m do begin
    for j:=1 to n do begin

    if ( (a[i,j]<a[i,j-1]) and (a[i,j]<a[i,j+1]) and (a[i,j]<a[i-1,j-1]) and (a[i,j]<a[i-1,j]) and (a[i,j]<a[i-1,j+1]) and (a[i,j]<a[i+1,j-1]) and (a[i,j]<a[i+1,j]) and (a[i,j]
    end;
    end;

    writeln();

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

    end.

    Ответ
  • 22.06.2022
    Permalink

    please update above code with this if

    if ( (a[i,j]<a[i,j-1]) and (a[i,j]<a[i,j+1]) and (a[i,j]<a[i-1,j-1]) and (a[i,j]<a[i-1,j]) and (a[i,j]<a[i-1,j+1]) and (a[i,j]<a[i+1,j-1]) and (a[i,j]<a[i+1,j])
    and (a[i,j]<a[i+1,j+1]) ) then b[i,j]:=0;

    Ответ

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

Ваш адрес 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. Решебник Абрамяна М. Э.