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.