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

[Legolas]

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

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

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

[Legolas]

Вот исходники:

program z16a;

Код

uses crt;
type mas=array[0..5,0..5] of real;
var i,j,n,m,i1,j1,k,l:integer;s:real;
a,b:mas;
label q,q1;
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;l:=1;
for i:=1 to n do begin
for j:=1 to m do begin
                if i=i1 then goto q;
                if j=j1 then goto q1;
                s:=s+a[i,j];
                {for l:=1 to 1 do}
                b[k,l]:=s;
                inc(l);
                q1:end;inc(k);
                q:s:=0;
                  l:=1;

                  end;
for k:=1 to n-1 do begin writeln;
for l:=1 to m-1 do write(b[k,l]:2:2,' ');end;writeln;
readkey
end.

program z16b;

Код

uses crt;
type mas=array[0..5,0..5] of real;
var i,j,n,m,i1,j1,k,l,x,y:integer;s:real;
a,b:mas;

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);

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

program z16c;

Код

uses crt;
type mas=array[0..5,0..5] of real;
var i,j,n,m,i1,j1,k:integer;s:real;
a,b:mas;
label q,q1;
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);

for i:=i1+1 to n do begin
for j:=1 to j1-1 do begin
                s:=s+a[i,j];
                b[i,j]:=s;
                end;q:s:=0;end;
for i:=i1+1 to n do begin writeln;
for j:=1 to j1-1 do write(b[i,j]:2:2,' ');end;writeln;
readkey
end.

program z16d;

Код

uses crt;
type mas=array[0..5,0..5] of real;
var i,j,n,m,i1,j1,k,l,x,y:integer;s:real;
a,b:mas;
label q,q1;
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]);

for i:=2 to n-1 do begin
for j:=2 to m-1 do begin
                s:=s+a[i,j];
                b[i,j]:=s;
                end;
                s:=0;end;
for i:=2 to n-1 do begin writeln;
for j:=2 to m-1 do write(b[i,j]:2:2,' ');end;writeln;
readkey
end.

только надо доделать.

Тегами CODE пользуемся...

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