двумерный массив.

[pochti_poluchilos]

Здравствуйте . Я тут новый пользователь , и нуждаюсь в помощи. Уже 2 недели не могу написать программу для двумерного массива !Пытался сам, но дальше "PROGRAM ne_ponatno;
var i,j:integer;
Tsin:array [1..7,1..4] of real;" не прошел .
а нужно еще совместить с двумя условиями. (1+i)*sin(j*(3.14/4))-при i-нечетном
и ((1-((i/sqr(j))/2)*cos(i))/(j-(i/(2*j)- в остальных случаях .типы циклов For While Repeat.

[hiho]

for i := 1 to 7 do
   for j := 1 to 4 do
      if odd(i) then A[i,j] := (1+i)*sin(j*(3.14/4))
      else A[i,j] := ((1-((i/sqr(j))/2)*cos(i))/(j-(i/(2*j))

Оно?

[pochti_poluchilos]

спасибо большое) теперь начал иметь представление.