Двумерные массивы. Простой поиск.

[antosha54]

Выручайте) очень надо это решить..

[Stilet]

Функции:

function f(k:double):Double;
begin
 f:=10.8*abs(cos(k*k/1.13))*sin(k+1.4);
end;

function g(n:double):Double;
begin
 g:=11.2*cos(2*n-1)+abs(sin(1.5*n))/1.7;
end;

Цикл:

for k:=1 to 4 do for n:=1 to 4 do a[k,n]:=n*f(k)+sin(k)*g(n);

Вывод табличный:

 for k:=1 to 4 do begin
  for n:=1 to 4 do  write(a[k,n]:10:2); writeln;
 end;

Сумма над главной

 for k:=1 to 4 do begin
  for n:=k+1 to 4 do  s:=s+a[k,n];
 end;

[antosha54]

Спасибо, выручил!