помогите решать в паскале

точно синтаксис не помню уже, но примерно так

i: integer;
for i:=1 to n do
begin
if if a<0
then
b=a;
end;

массивы думаю сам создашь и заполнишь

а мне не даёт ответить. пишет "в вашем сообщении есть латинские буквы". а как же? конечно есть! бред, а не сервис! да и при наборе окошечко почему-то такое маленькое, узкое, текст всё время прыгает.. .
в общем, очень неудобно отвечать. а так бы помог.

ну ладно уж, помогу
вот так например объявляем массивы
a: array[1..50,1..50] of integer;
b: array[1..50] of integer;
что бы пройтись по всем элементам двумерного массива создается цикл в цикле, для строки и столбца.
затем с помощью условия, if then else, ищешь отрицательные числа в массиве А, и заносишь их в массив b, для этого можно организовать еще один цикл для массива b, чтобы последовательно записать в него все найденные отрицательные числа из массива А.
все просто,
удачи