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

Matrix46. Дана целочисленная матрица размера M × N. Найти элемент, являющийся максимальным в своей строке и минимальным в своем столбце. Если такой элемент отсутствует, то вывести 0.

Решение Pascal

 

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

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

  • 04.06.2022
    Permalink

    program matrix46;

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

    var
    a,b:matrix;
    c:matr;
    min1,num2,max,strnum,num1,otr,pol,num,maxmin,min,prnum,sum,n,m,m1,i1,j1,i,j,k,kkk,kkk1,kkk2:integer;
    prmax,proizv:real;
    begin
    randomize;
    kkk:=1;m:=8;n:=8;
    for i:=1 to m do begin
    for j:=1 to n do begin
    a[i,j]:=random(-100)+50;
    end;
    end;

    num2:=0;max:=0;kkk:=0;
    for i:=1 to m do begin
    max:=a[i,1];num:=0;
    for j:=1 to n do begin
    if a[i,j]>max then begin max:=a[i,j];num:=j end;
    end;//end j
    min:=a[i,num];
    for j1:=1 to n do begin
    if a[j1,num]<min then min:=a[j1,num];
    end;

    if max=min then writeln('max=min=',max) else writeln('0');

    end;//end i

    writeln();
    for i:=1 to m do begin
    for j:=1 to n do begin
    write(a[i,j],' ');
    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. Решебник Абрамяна М. Э.