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

Matrix80. Дана квадратная матрица A порядка M. Найти сумму элементов ее главной диагонали, то есть диагонали, содержащей следующие элементы:
A1,1, A2,2, A3,3, …, AM,M.

Решение Pascal

 

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

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

  • 27.06.2022
    Permalink

    program matrix80;

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

    const
    m=8;
    n=8;

    var
    kkk,sum,i,j:integer;
    a:matrix;

    procedure Vyvod(a:matrix);
    var
    i,j:integer;
    begin
    for i:=1 to m do begin
    for j:=1 to n do begin
    write(a[i,j],’ ‘);
    end;
    writeln();
    end;
    end;

    begin
    kkk:=1;
    randomize;
    for i:=1 to m do begin
    for j:=1 to n do begin
    //a[i,j]:=random(50);
    a[i,j]:=kkk;inc(kkk);
    end;
    end;

    Vyvod(a);
    sum:=0;
    for i:=1 to m do begin
    sum:=sum+a[i,i];
    end;
    writeln();
    writeln(‘sum=’,sum);
    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. Решебник Абрамяна М. Э.