Написать программу, которая находит сумму всех элементов квадратной матрицы

@Deus95 · Регистрация: 29.09.2013

Author24 — интернет-сервис помощи студентам

Написать программу, которая находит сумму всех элементов квадратной матрицы размером 10x10 за исключением элементов, лежащих на ее главных диагоналях. Элементы матрицы - действительные числа. Исходное состояние матрицы сформировать с помощью операторов присваивания.

@ildwine · 13.11.2013, 19:40

Pascal

const
  n = 10;
var
  a : array[1..n, 1..n] of integer;
  i, j, s : integer;
begin
  s := 0;
  randomize;
  writeln('матрица');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i,j] := random(100) - 50;
      write(a[i,j]:4);
      if i <> j then s := s + a[i,j]
    end;
    writeln
  end;
  writeln('сумма элементов матрицы кроме элементов на гл. диагонали: ', s)  
end.

Добавлено через 5 часов 48 минут
Извиняюсь программа считала сумму всей матрицы, исправил

@Deus95 0 / 0 / 0 Регистрация: 29.09.2013 Сообщений: 28
		1
	Написать программу, которая находит сумму всех элементов квадратной матрицы 13.11.2013, 13:40. Показов 2820. Ответов 1 Метки нет (Все метки) Написать программу, которая находит сумму всех элементов квадратной матрицы размером 10x10 за исключением элементов, лежащих на ее главных диагоналях. Элементы матрицы - действительные числа. Исходное состояние матрицы сформировать с помощью операторов присваивания. 0

	13.11.2013, 19:40

Написать программу, которая находит сумму всех элементов квадратной матрицы

Решение