Пример кода на Turbo Pascal:

program FillArray;
const
rows = 5;
cols = 5;
var
arr: array$$\mathrm{1..}rows,\mathrm{1..}cols$$ of integer;
i, j: integer;
begin
randomize;
for i := 1 to rows do
begin
for j := 1 to cols do
begin
arr$$i,j$$ := random$-100$ - 1; // генерация случайного отрицательного числа
end;
end;
// вывод массива
for i := 1 to rows do
begin
for j := 1 to cols do
begin
write$arr[i,j]:5$;
end;
writeln;
end;
end.

Этот код создает двумерный массив размером 5x5 и заполняет его случайными отрицательными числами. Функция random$-100$ - 1 генерирует случайное число от -1 до -100.