mm
huilushaProgram lab5_1;
const
n=10;
var
arr: array [1..n] of array [1..n] of integer;
i, j, x, y: integer;
begin
Randomize;
write('Введите I, J',#10#13, '>');
read(i, j);
writeln('Исходная матрица:');
for x := 1 to n do
begin
for y := 1 to n do
begin
arr[x][y] := Random(100)+1;
write(arr[x][y]:4);
end;
writeln();
end;
for x := i+1 to n do
begin
for y := j+1 to n do arr[x][y-1] := arr[x][y];
arr[x-1] := arr[x]
end;
writeln('Результат удаления:');
for x := 1 to n-1 do
begin
for y := 1 to n-1 do write(arr[x][y]:4);
writeln();
end;
end.
ALARM!!!!!!
Program Sashko;
const
n=5;
var
arr: array [1..n] of array [1..n] of integer;
i, j: integer;
begin
for i:= 1 to n do
begin
for j:=1 to n do
begin
arr[i][j] := abs(i-j)+1;
write(arr[i][j]:2);
end;
writeln()
end;
end.