массивы, удаление, вставка Опции

[Семен]

Интересно бы узнать следующее:

1) удаление строки, столбца из матрицы (не обнуление!)
2) вставка элемента (строки, столбца) в массив (одномерный, двумерный).
Заранее спасибо

Сообщение отредактировано: Семен - 7.12.2004 0:12

[mithquessir]

Семен

2) вставка элемента (столбца) в массив (двумерный)

Код

uses crt;
const
    n = 5;
    a:array[1..n] of integer = (1,2,3,4,5);
var
    x:array[1..n,1..n+1] of integer;
    i,j,num:integer;
begin
    ReadLn(num);
    for i := 1 to n do
    for j := 1 to n do
    x[i,j] := random(100);
    for i := 1 to n do
    begin
         for j := n downto num do
         x[i,j+1] := x[i,j];
         x[i,num] := a[i];
    end;
    clrscr;
    for i := 1 to n do
    for j := 1 to n+1 do
    begin
         if j = num then textcolor(15)
         else textcolor(7);
         GoToXY(j*num,i*5);
         Write(x[i,j]);
    end;
end.