var A:array[1..m,1..n] of real;
b:array[1..m] of real;
i,j:integer;
begin
for i:=1 to m do b:=0;
for i:=1 to m do
for j:=1 to n do
if A[i,j]=sin(i*i+j*j) then b:=b+A[i,j];
end;
задача с матрицами? делфи
вообщем щас знакомый в асбку стукнул с универа, там у него вродь экзамен, помогитте вот это решить, а то я не программист и ниче в матрицах не смыслю ))