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

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


textual

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

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



Похожие ответы
  1. Вычислить сумму ряда: S = √2d+√3d+√4d+…+√15d

  1. Ввести с клавиатуры одномерный массив из 5 чисел , подсчитать сумму элементов больше нуля и вывести результат на экран монитора.

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. Вычислить С при любых значениях x, а, b:

  1. По введенным значениям аргумента х вычислить значение функции, заданной графически.Помогите пожалуйста написать программу в Паскале

  1. Здравствуйте, помогите написать программу на паскале, где

  1. Вычислить - Z=m1+m2/2, где m1 и m2 наименьшие элементы массивов X(20) и X(35).Использовать подпрограмму нахождения минимального элемента массива.

  1. Дано 8 вешественных чисел. Нужно вычислить разность между максимальным и минимальным из них. Заранее благодарен!

  1. Дано натуральное число n, входной поток данных: действительные числа a1,a2,a3, ... , aN. Получите удвоенную сумму всех положительных членов входного потока данных a1,a2,a3, ... , aN. Составьте код программы и блок-схему.

  1. Даны x, y и z. Вычислите a, b, если: Таблицу и блок-схему, будьте добры.