Question

Решите пожалуйста на Паскаль. С клавиатуры вводится целое положительное число N от 3 до 15. Построить квадратную матрицу размерностью NxN и заполнить случайными целыми числами.​

Answer 1

Program n1;

var a: array[1..15,1..15] of integer;

i,n,j: integer;

begin

randomize;

write('n=');

readln(n);

for i:=1 to n do

for j:=1 to n do

a[i,j]:=random(20);

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j],' ');

writeln;

end;

end.

Answer 2

Конечно, вот пример кода на языке Паскаль для выполнения задачи:

pascalCopy code
program RandomMatrix;

const
  MIN_VALUE = -100; // Минимальное значение случайного числа
  MAX_VALUE = 100;  // Максимальное значение случайного числа

var
  N, i, j: integer;
  matrix: array of array of integer;

begin
  writeln('Введите размерность матрицы (от 3 до 15): ');
  readln(N);

  // Проверка на корректность размерности
  if (N < 3) or (N > 15) then
  begin
    writeln('Некорректная размерность матрицы.');
    exit;
  end;

  // Инициализация генератора случайных чисел
  Randomize;

  // Выделение памяти для матрицы
  SetLength(matrix, N, N);

  // Заполнение матрицы случайными числами
  for i := 0 to N - 1 do
  begin
    for j := 0 to N - 1 do
    begin
      matrix[i][j] := Random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUE;
    end;
  end;

  // Вывод матрицы
  writeln('Сгенерированная матрица:');
  for i := 0 to N - 1 do
  begin
    for j := 0 to N - 1 do
    begin
      write(matrix[i][j]:5);
    end;
    writeln;
  end;
end.

Просто скопируйте этот код в среду разработки Pascal, скомпилируйте и запустите программу. Она будет запрашивать размерность матрицы, затем генерировать и выводить матрицу с случайными целыми числами.