//Программа на. Паскале генерирует матрицу n*n целых чисел
//от -25до 25
const n=7;
var
i, j : integer;
mass: array [1..n,1..n] of integer;
begin
Randomize;
for i:= 1 to n do
for j:= 1 to n do
Begin
mass[i, j]:= random(51)-25;
write(mass[i, j]:3, ' ');
End;
writeln;
end;
end.
//Программа на. Паскале генерирует матрицу n*n целых чисел
//от -25до 25
const n=7;
var
i, j : integer;
mass: array [1..n,1..n] of integer;
begin
Randomize;
for i:= 1 to n do
begin
for j:= 1 to n do
Begin
mass[i, j]:= random(51)-25;
write(mass[i, j]:3, ' ');
End;
writeln;
end;
end.