Задача на динамический многомерный массив в Дельфи

[Lokos1971]

Помогите, пожалуйста, послезавтра сдавать!

Задача: Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица A размерности nxn, если A[i,j]=(sin(i)+j/2)). Приложение для Дельфи 7, оконное, но на крайний случай сойдет и консольное.

Заранее спасибо всем.

[Тролль]

Lokos1971:

Да уж, всем задачам задача... Delphi под рукой нет, поэтому на Паскале (можно считать консольным приложением Delphi)

program mmm;var i,j,n,k:integer; beginwrite('n: '); readln(n); k:=0; for i:=1 to n do for j:=1 to n do if sin(i)+j/2>0 then inc(k);writeln(k); readlnend.

На самом деле неположительные элементы тут могут быть только при j, равном 1 и решение сводится к неравенству sin(i)>-0,5. Но поскольку что-либо доказывать лень, решали с проверкой (не имеющей смысла, так как результат заранее известен) и всех других значений j.

P.S. Да, я как-то забыл: к чему тут "динамический многомерный массив"? :bye1:

Задача, так сказать, решается на пальцах.

Изменено 27 декабря, 2008 пользователем Тролль