Сумма элементов массива, Как найти сумму элементов заштрихованной Опции

[Legolas]

Всем привет!
Кто знает, может поможет решить вот такую задачу:

Дан двумерный действительный массив А[n, n]. Найти сумму элементов заштрихованной области массива А, предварительно записав их в массив В[k].

Всем заренее благодарен

[Legolas]

Вот застрял на задаче "Г", вот ее код:

program z18d;
uses crt;
type mas=array[0..5,0..5] of integer;
var i,j,n,m,i1,j1,k,s:integer;
a:mas;
b:array [1..20] of integer;
begin
clrscr;
writeln('vvedite razmernost');
readln(n,m);

writeln('vvedite elementi');
for i:=1 to n do
for j:=1 to m do read(a[i,j]);

write('i=');readln(i1);
write('j=');readln(j1);
k:=1;
for i:=i1+1 to n-i1 do begin
for j:=j1+1 to m-j1 do begin
                 s:=s;
                 s:=s+a[i,j];
                 b[k]:=a[i,j];inc(k);
                 end;
                 end;
writeln('s=',s);
{for i:=2 to n-1 do begin writeln;}
for i:=1 to k-1 do write(b[i],' ');
readkey
end.

Может что не так, не пойму...Надо как-то по-другому конец проги написать...

Сообщение отредактировано: volvo - 4.11.2010 19:09

[volvo]

Может что не так, не пойму...Надо как-то по-другому конец проги написать...

Что значит "может"? Ты программу запускал? Она отработала? Решение совпало с тем, которое ДОЛЖНО получиться (на бумаге)? У нас тут проблемы с телепатией в последнее время.

Если есть ошибка - так и говори, если ты не уверен в правильности - тебе уже говорили как это проверяется...

[Legolas]

Если есть ошибка - так и говори, если ты не уверен в правильности - тебе уже говорили как это проверяется...

Да вот при разных значениях i и j s почему-то всегда равен нулю, не пойму, что не так...