• Дана квадратная матрица действительных чисел. Найти сумму модулей элементов, расположенных выше главной диагонали.
    Помогите в паскале написать это чудо!

Ответы 3

  • Значения константы точно такие же писать или же это не обязательно
    • Автор:

      missy
    • 6 лет назад
    • 0
  • по условию не говорится как создать матрицу, лучше создавать чем заносить в константы. Если правильно поняла вопрос
    • Автор:

      rico
    • 6 лет назад
    • 0
  • const nx = 20;mx = 20; var A:Array[1..nx,1..nx] of real; i,j,n,m:integer; sum:real; begin write('Введите размер матрицы'); Read(n); for i:=1 to n do begin for j:=1 to n do begin A[i,j]:= random()*100 -50; write(A[i,j]:9:4); end; writeln; end;  writeln; writeln; for i:=1 to n do begin  for j:=1 to n do beginif i < j then begin write(A[i,j]:9:4); sum:=sum + A[i,j]; end else write(' ':9); end; writeln; end; write('Сумма = ',sum); end.
    • Автор:

      tyson81
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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