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

@Eyrena · Регистрация: 01.10.2014

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

Найти сумму элементов каждой строки квадратной матрицы, находящихся выше главной диагонали.

@erl27 · 08.10.2014, 22:32

Pascal

{ Найти сумму элементов каждой строки квадратной 
матрицы, находящихся выше главной диагонали. }
 
const
  n = 10;
 
var
  A: array[1..n, 1..n] of integer;
  i, j: byte;
  S: integer;
  
begin
  for i := 1 to n do begin
    S := 0;
    for j := 1 to n do begin
      a[i, j] := random(200) - 100;
      write(a[i, j]:5);
      if i < j then S := S + a[i, j]
    end;
    if i < n then writeln('   Сумма ', i, ' строки: ', S)
  end
end.

@Eyrena 0 / 0 / 0 Регистрация: 01.10.2014 Сообщений: 8
		1
	Найти сумму элементов каждой строки квадратной матрицы, находящихся выше главной диагонали 08.10.2014, 21:53. Показов 1968. Ответов 1 Метки нет (Все метки) Найти сумму элементов каждой строки квадратной матрицы, находящихся выше главной диагонали. 0

	08.10.2014, 22:32

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

Решение