Матрицы Опции

[MEDJIK]

Пивет всем. Помогите кто могёт. Нужно составить матрицу , а затем удалить
из неё i-ю строку и j-столбец. Зарание благодарю.

[fms]

такое где то уже было. поковыряйся в форуме.

[trminator]

Так что ковыряться-то? Он же и спрашивал. Давненько, между прочим. Я ему тогда посоветовал посмотреть еще в какой-то теме, тем дело и закончилось. А этот бедолага оказывается за все это время ни строчки ни написал. Наверное, времени нет, жена, дети, работа...
На вот, бедняга, готовую программу. Может, она тебе чем и поможет

Код

const N = 5;
var a    : array[1..N, 1..N] of integer;
   i, j, x, y : integer;
begin
 for i:=1 to N do
    for j:=1 to N do read(A[i,j]);

 readLn(x, y);
 for i:=1 to N do
    for j:=x to N-1 do
    A[i,j]:=A[i,j+1];

 for i := y to N-1 do
   for j:=1 to N do
   A[i,j]:=A[i+1,j];

 for i:=1 to N-1 do begin
   for j:=1 to N-1 do
     write(A[i,j]:5);
   writeLn
 end;
end.

Если ошибки есть - не судите слишком строго, времени на нее ушло минут пять, не больше

[MEDJIK]

Ок ! спосибо большое .... а то что я когода то давно писал , я уже чесно говоря не помню так как я много где всего пишу ... но ТО я уже сделал ....
Спосибо ребята .

[trminator]

http://forum.pascal.net.ru/?board=zd;actio...;num=1071156113 - действительно, времени прошло аж два дня >:(

[fms]

мог бы потрудиться и запомнить что где написал.  :-/