1. В паскале Как объявить двуменрный массив в виде константы, т.е. уже с заданными значениями
пример

const
X:array[1..5] of integer=(2,1,5,7,8)


В ПАСКАЛЕ
2.Даны 2 двумерных массива A(n,m) и B(k,t). Необходимо написать процедуру (внимание одну!), вычисляющую, например, сумму положительных элементов.

const
X:array[1..2, 1..5] of integer = (
  (2,1,5,7,8),
  (1,2,3,4,5)
);

Второе задание - смотри в FAQ-е и Поиске, уже решалось неоднократно...

Выкладываю результат, может кому-нить пригодится

М

Не надо перепечатывать FAQ (еще и без CopyRight-ов...) А то, что у тебя динамический массив - здесь телепатов нет, чтоб догадываться!