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.