Question

Нужно составить матрицу 4х4, где элементы задаются рандомом в диапазоне (-5,15), сделать вывод матрицы. (в PascalABC.NET на языке паскаль)

Answer 1

const

 n=4;

var

 a: array [1..n,1..n] of integer;

 i,j:integer;

begin

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         a[i,j]:=random(21)-5;

         write(a[i,j]:4);

       end;

     writeln;

   end;

end.

Answer 2

Конечно, вот пример кода на PascalABC.NET для создания и вывода матрицы 4x4 с рандомными элементами в диапазоне (-5, 15):

pascalCopy code
program RandomMatrix;

uses
  SysUtils;

const
  Rows = 4;
  Cols = 4;
  MinValue = -5;
  MaxValue = 15;

var
  matrix: array[1..Rows, 1..Cols] of Integer;
  i, j: Integer;

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

  // Заполняем матрицу рандомными значениями
  for i := 1 to Rows do
    for j := 1 to Cols do
      matrix[i, j] := Random(MaxValue - MinValue + 1) + MinValue;

  // Выводим матрицу
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
      Write(matrix[i, j]:4); // Выводим элемент с выравниванием в 4 символа
    Writeln; // Переходим на новую строку для следующей строки матрицы
  end;
end.

Просто скопируйте этот код в PascalABC.NET и выполните его. Он создаст матрицу 4x4 со случайными элементами в указанном диапазоне и выведет её на экран.