• Дана вещественная матрица А, размерностью n*n. Найти сумму элементов матрицы, расположенных на главной диагонали.

Ответы 1

  • var a: array [1..100, 1..100] of real; sum: real; i, j, n: integer;begin     read(n);     sum := 0;     for i := 1 to n do         for j := 1 to n do         begin              read(a[i, j]);              if i = j then sum := sum + a[i, j];         end;     for i := 1 to n do     begin          for j := 1 to n do              write(a[i, j], ' ');          writeln;     end;     writeln(sum);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years