Найти сумму элементов матрицы [A], размером N x M, находящихся над главной диагональю. Вывести на печать исходную матрицу и сумму.

@ToBe · Регистрация: 12.05.2010

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

@yanyk1n · 16.05.2010, 23:28

Диагональ есть только у квадратной матрицы:

Pascal

uses crt;
const n=4;
var a:array[1..n,1..n]of integer;
i,j,s:integer;
 
begin
    clrscr;
    randomize;
    writeln('Исходная матрица');
    for i:=1 to n do
    begin 
        for j:=1 to n do
        begin
            a[i,j]:=random(100);
            write(a[i,j]:3);
        end;
        writeln;
    end;
 
    s := 0;
    for i:=1 to N do for j := 1 to i-1 do s:=s+a[i,j];
    writeln('S=',s);
    readln;
end.

@ToBe 0 / 0 / 0 Регистрация: 12.05.2010 Сообщений: 15
		1
	Найти сумму элементов матрицы [A], размером N x M, находящихся над главной диагональю. Вывести на печать исходную матрицу и сумму. 16.05.2010, 23:26. Показов 1788. Ответов 1 Метки нет (Все метки) Найти сумму элементов матрицы [A], размером N x M, находящихся над главной диагональю. Вывести на печать исходную матрицу и сумму. 0

	16.05.2010, 23:28

Опции темы

Найти сумму элементов матрицы [A], размером N x M, находящихся над главной диагональю. Вывести на печать исходную матрицу и сумму.

Решение