Разработка в среде Turbo Pascal программы заполнения двумерного массива.
Задан двумерный массив.
1. Заполнить массив случайными только отрицательными числами

Предыдущий
вопрос Следующий
вопрос

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

program FillArray;
const
rows = 5;
cols = 5;
var
arr: array[1..rows, 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.