Найти сумму элементов матрицы в треугольной области

@nesteroff · Регистрация: 11.10.2012

нужно написать прогу которая считает сумму элементов треугольника в массиве размером nxn где n нечетное ,
например
1 2 3
4 5 6
7 8 9
2+4+5+6=17

6 2 9 5 1
0 3 7 2 8
4 7 2 6 4
8 5 2 6 0
2 3 9 4 5
9+3+2+4+7+2+6+4=37
т.е
1...2...3...4...5
....../.....\
6...7...8....9...10
.../.............\
11-12-13-14-15
16 17 18 19 20
21 22 23 24 25

@КонецСвета · 02.01.2013, 13:28

Pascal

uses crt;
const nmax=15;
var a: array [1..nmax,1..nmax] of integer;
    i,j,n: byte;
    sum: integer;
    
begin
repeat
write('Размерность матрицы, не более ',nmax,', n (нечетное) ='); readln(n);
until (n in [1..nmax]) and odd(n);
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=random(19)-9;
        if (i<=(n div 2)+1) and
        (j>=(n div 2)-i+2) and
        (j<=(n div 2)+i)
         then
           begin
           textcolor(5);
           inc(sum,a[i,j]);
           end else textcolor(0);
        write(a[i,j]:3);
        end;
    writeln;
    end;
writeln('Сумма указанной области=',sum);
readln;
end.

@nesteroff 0 / 0 / 0 Регистрация: 11.10.2012 Сообщений: 34
		1
	Найти сумму элементов матрицы в треугольной области 02.01.2013, 09:53. Показов 1634. Ответов 1 Метки нет (Все метки) нужно написать прогу которая считает сумму элементов треугольника в массиве размером nxn где n нечетное , например 1 2 3 4 5 6 7 8 9 2+4+5+6=17 6 2 9 5 1 0 3 7 2 8 4 7 2 6 4 8 5 2 6 0 2 3 9 4 5 9+3+2+4+7+2+6+4=37 т.е 1...2...3...4...5 ....../.....\ 6...7...8....9...10 .../.............\ 11-12-13-14-15 16 17 18 19 20 21 22 23 24 25 0

Опции темы

Найти сумму элементов матрицы в треугольной области

Решение