сумма из заштрихованной области квадрата

[sestrenka141989]

Помогите кто-нибудь с задачкой, что-то я совсем ее не пойму((
Найти сумму из заштрихованной области квадрата, указанного на рисунке:

 

[Dock1100]

суму чего именно(площад, так это половина квадрата, количество точек?)

 

[sestrenka141989]

вот именно что непонятно. Такое условие задания((((

 

[vital]

что-то мне посказывает, что там должна быть площадь..

 

[sestrenka141989]

в общем дано квадратная матрица и найти суму чисел из заштрихованной области

 

[vital]

ну так матрицу в студию что ли?

 

[hosm]

ой, а ты будешь решать, vital?)
кстати, с областью непонятно) диагональные элементы матрицы учитывать в заштрихованную часть?
насколько я поняла, она в виде 2 треугольников с общей вершиной (т.е. сплошной черный цвет не учитывается).

 

[sestrenka141989]

нужны все элементы которые находятся в черной области включая и диагонали

 

[vital]

ну так матрицу в студию что ли?

 

[sestrenka141989]

если можно то да

Добавлено: У меня вышло так:

const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
n,i,j:byte;
sm:integer;
begin

randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
sm:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
if(j>=i)or(j>=n-i+1)then
begin
sm:=sm+a[i,j];
write(a[i,j]:4);
end
else
begin
write(a[i,j]:4);
end;
end;
writeln;
end;
writeln;

write('Сумма=',sm);
readln
end.

 

[hosm]

sestrenka141989, вроде всё правильно, но я бы не плодила избыточности. Так проще и читабельней (привожу только внутренний цикл)

for j:=1 to n do
begin
a[i,j]:=random(10);
if(j>=i)or(j>=n-i+1) then
sm:=sm+a[i,j];
write(a[i,j]:4);
end;

P.S. при постинге кода на форум стоит применять соответсвующий тег. Даже кнопочки есть для него.