program Dekio;
const
n = 5;
m = 8;
var
arr: array [1 .. n, 1 .. m] of integer;
i, j: integer;
begin
randomize;
writeln('Массив');
for i := 1 to n do
begin
for j := 1 to m do
begin
arr[i, j] := random(30) - 5;
write(arr[i, j]:4);
end;
writeln;
end;
writeln('Результат');
for i := 1 to n do
begin
for j := 1 to m do
begin
arr[i, 3] := -12;
write(arr[i, j]:4);
end;
writeln;
end;
end.
Следующий вариант
program Dekio;
const
n = 5;
m = 8;
var
arr: array [1 .. n, 1 .. m] of integer;
i, j: integer;
begin
randomize;
writeln('Массив');
for i := 1 to n do
begin
for j := 1 to m do
begin
arr[i, j] := random(30) - 5;
arr[i, 3] := -12;
write(arr[i, j]:5);
end;
writeln;
end;
end.