Помогите пожалуйста написать программу :

Заданы два одномерных массива А и В размерности соответственно n и m. Сформировать двухмерный массив D размерности mxn, каждый элемент которого dij=aibj; i =1,2,..., п; j=1 ,2,...,m, и обнулить отрицательные элементы D.

Mr_sniper, а в чем сложность-то? Ну, вот так можно, например..

for i:=1 to m do
  for j:=1 to n do
    if a[i]*b[j]>0 then d[i,j]:= a[i]*b[j] else d[i,j]:= 0;