fork download
copy 
  1. program Task2_MatrixRowSum;
  2.  
  3. const
  4.   N = 10;
  5.  
  6. var
  7.   M: array[1..N, 1..N] of integer;
  8.   i, j: integer;
  9.   sum: integer;
  10.  
  11. begin
  12.   // Ввод матрицы
  13.   writeln('Введите элементы матрицы ', N, 'x', N, ':');
  14.   for i := 1 to N do
  15.     for j := 1 to N do
  16.     begin
  17.       write('M[', i, ',', j, '] = ');
  18.       readln(M[i, j]);
  19.     end;
  20.  
  21.   // Вывод введённой матрицы
  22.   writeln;
  23.   writeln('Введённая матрица:');
  24.   for i := 1 to N do
  25.   begin
  26.     for j := 1 to N do
  27.       write(M[i, j]:5);
  28.     writeln;
  29.   end;
  30.  
  31.   // Подсчёт суммы элементов в каждой строке
  32.   writeln;
  33.   writeln('Суммы элементов по строкам:');
  34.   for i := 1 to N do
  35.   begin
  36.     sum := 0;
  37.     for j := 1 to N do
  38.       sum := sum + M[i, j];
  39.     writeln('Строка ', i, ': сумма = ', sum);
  40.   end;
  41. end.
Success #stdin #stdout 0s 5288KB
comments (?)
stdin
copy 
1
2
3
4
5
6
7
8
9
10
9
10
stdout
copy 
Введите элементы матрицы 10x10:
M[1,1] = M[1,2] = M[1,3] = M[1,4] = M[1,5] = M[1,6] = M[1,7] = M[1,8] = M[1,9] = M[1,10] = M[2,1] = M[2,2] = M[2,3] = M[2,4] = M[2,5] = M[2,6] = M[2,7] = M[2,8] = M[2,9] = M[2,10] = M[3,1] = M[3,2] = M[3,3] = M[3,4] = M[3,5] = M[3,6] = M[3,7] = M[3,8] = M[3,9] = M[3,10] = M[4,1] = M[4,2] = M[4,3] = M[4,4] = M[4,5] = M[4,6] = M[4,7] = M[4,8] = M[4,9] = M[4,10] = M[5,1] = M[5,2] = M[5,3] = M[5,4] = M[5,5] = M[5,6] = M[5,7] = M[5,8] = M[5,9] = M[5,10] = M[6,1] = M[6,2] = M[6,3] = M[6,4] = M[6,5] = M[6,6] = M[6,7] = M[6,8] = M[6,9] = M[6,10] = M[7,1] = M[7,2] = M[7,3] = M[7,4] = M[7,5] = M[7,6] = M[7,7] = M[7,8] = M[7,9] = M[7,10] = M[8,1] = M[8,2] = M[8,3] = M[8,4] = M[8,5] = M[8,6] = M[8,7] = M[8,8] = M[8,9] = M[8,10] = M[9,1] = M[9,2] = M[9,3] = M[9,4] = M[9,5] = M[9,6] = M[9,7] = M[9,8] = M[9,9] = M[9,10] = M[10,1] = M[10,2] = M[10,3] = M[10,4] = M[10,5] = M[10,6] = M[10,7] = M[10,8] = M[10,9] = M[10,10] = 
Введённая матрица:
    1    2    3    4    5    6    7    8    9   10
    9   10    0    0    0    0    0    0    0    0
    0    0    0    0    0    0    0    0    0    0
    0    0    0    0    0    0    0    0    0    0
    0    0    0    0    0    0    0    0    0    0
    0    0    0    0    0    0    0    0    0    0
    0    0    0    0    0    0    0    0    0    0
    0    0    0    0    0    0    0    0    0    0
    0    0    0    0    0    0    0    0    0    0
    0    0    0    0    0    0    0    0    0    0

Суммы элементов по строкам:
Строка 1: сумма = 55
Строка 2: сумма = 19
Строка 3: сумма = 0
Строка 4: сумма = 0
Строка 5: сумма = 0
Строка 6: сумма = 0
Строка 7: сумма = 0
Строка 8: сумма = 0
Строка 9: сумма = 0
Строка 10: сумма = 0
https://ideone.com/cR77dt
language:
Pascal (fpc 3.0.4)
created:
9 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!