То есть мне дана матрица А, и 1 клетка в ней равна 4 столбца и 2 строки, и это равно 1 элементу матрицы В. Например, B[1,1]=(A[1,1]+A[1,2])*(A[1,3]+A[1,4])*(A[2,1]+A[2,2])*(A[2,3]+A[2,4]).
Если можно, укажите ошибку в моей неработающей программе:
program bayer;
const m=8; n=4;
type aa=array[1..n,1..m]of integer;
var i,j,c,d,f,x,y:byte;
Sr,Pr:integer; A:AA; B:array[1..n div 4,1..m div 2]of integer;
procedure Sum(A:AA; i,j:byte; var p:integer);
var k,y,z:byte; s:integer;
begin
s:=0; p:=1; k:=j;
for y:=i to i+1 do
for z:=k to j+3 do
begin
s:=A[y,z]+A[y,z+1];
p:=p*s;
k:=k+1;
end;
end;
begin
for i:=1 to n do
for j:=1 to m do
begin
writeln ('vvedite element v ',i,' stroke i ',j,' stolbce');
readln (A[i,j]);
end;
c:=1; d:=1; f:=1;x:=1; y:=1;
for i:=f to n do
begin
for j:=d to m do
begin
sum(A,i,j,B[x,y]);
if d+4>m then d:=m else begin d:=d+4; y:=y+1; end;
end;
if c mod 2=0 then begin
f:=f+2;
c:=c+1;
x:=x+1;
end
else c:=c+1;
end;
for i:=1 to n div 4 do begin writeln;
for j:=1 to m div 2 do
write (B[i,j],' '); end;
readln;
end.
Сообщение отредактировано: DruiD -