Вычислить сумму элементов матрицы - Turbo Pascal (34023)

Формулировка задачи:

Помогите пожалуйста!!!! 1)Вычислить сумму элементов матрицы A размерностью n*m с элементами ai,j, i= 1, 2, …, n; j = 1, 2,…, m.

Код к задаче: «Вычислить сумму элементов матрицы - Turbo Pascal (34023)»

textual
const
  N = 10;
 
var
  A: array[1..N, 1..N] of real;
  S: real;
  i, j: integer;
 
begin
  S := 0;
  randomize;
  { Выводим матрицу: }
  writeln('Вводим матрицу (', N, ' X ', N, ') вещественных чисел:');
  writeln;
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      a[i, j] := i * sin(i + j) - sin(i - j);
      write(a[i, j]:8:3);
      if i = j then S := S + a[i, j]//сумма элементов главной диагонали
    end; 
    writeln
  end;
  writeln;
  writeln('Сумма элементов главной диагонали матрицы: ', S:0:3);
  readln;
end.

8   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ