Question

Se consideră următoarea declaraţie:
const n=4;
type T=array[1..n,1..n] of real;
Elaboraţi o funcţie care calculează produsul componentelor tabelului:

Answer 1

function f(x:T):real;
var
  i,j:integer;
  p:real;
begin
  p:=1;
  for i:=1 to 4 do
    for j:=1 to 4 do
      p:=p*a[i,j];
  f:=p;
end;