массив с элементами

[андрей1107]

Помогите пожалуйста создать массив с элементами: a (элементы)kn=nf(k)+sin(k)g(n),где k,n=1,2,3,4;
f(k)=13,4sin(-1,26)cos|k/7,5|
g(n)=2sin|2n|cos2n-11,6sin(n/0,4-1)
Вывести его на экран в виде таблицы. Вычислить произведение тех элементов массива,для которых выполняется неравенство 2<a (элементы) kn<10.
Вот код:
c = 4;

function f(k: integer): real;
begin
  f := 13.4 * sin(-1.26) * cos(abs(k / 7.5));
end;
 
function g(n: integer): real;
begin
  g := 2 * sin(abs(2 * n)) * cos(2 * n) - 11.6 * sin(n / 0.4 - 1);
end;
 
var
  a: array[1..c, 1..c] of real;
  k, n, x: integer;
  p: real;
 
begin
  p := 1;
  for k := 1 to c do
  begin
    for n := 1 to c do
    begin
      a[k, n] := n * f(k) + sin(k) * g(n);
      if (2 < a[k, n]) and (a[k, n] < 10)
      then
      begin
        inc(x);
        p := p * x;
      end;
      write(a[k, n]:8:2);
    end;
    writeln;
  end;
  if x = 0 then writeln('Нет искомых элементов')
  else writeln('Произведение искомых элементов = ', p);
  readln;
end.

Но программа почему-то не находит таких элементов(((

[ViktorR]

Попробуй посмотреть на массив значений, например в Excel.
Думаю, что проблем не составит.
У меня получилось, что все элементы < 0 (отрицательные).

PS: Думаю, что фраза:

2<a (элементы) kn<10

будет более понятной, если написать её так:
2 < a[k,n] < 10 или так: 2 < akn < 10
Второй вариант получается, если менять размер шрифта. Но это так, ...



Как-то так, ...