Версия для печати темы

Автор: Kolk 5.06.2005 19:58

Помогите решить.
1.Дана матрица м на n Удалить указанную строку и столбец. и вывести матрицу.
2. Дана матриц м на н. ПОменять стркоу и столбец местами. и вывести.
Помогите плиз.
Фак ваш читал.

Автор: klem4 5.06.2005 20:08

и?
конкретные вопросы есть ? поищи по форуму аналогичных задач сотни, начни делать сам, будут конкретные вопросы, обращайся ..
:yes:

Автор: Guest 5.06.2005 20:11

ниче подобного найти не могу....

Автор: klem4 5.06.2005 20:17

1)

uses crt;
const n=3;
      m=4;

var
   x:array[1..n,1..m] of integer;
   i,j,k,l:integer;

begin
   clrscr;
   for i:=1 to n do
    begin
       writeln;
       for j:=1 to m do
        begin
           x[i,j]:=random(15);
           write(x[i,j]:2,'  ');
        end;
    end;

    writeln;

    write('Udalit stroku N ');
    readln(k);

    for i:=k to n-1 do
     for j:=1 to m do
      x[i,j]:=x[i+1,j];


    write('Udalit stolbec N ');
    readln(l);

    for j:=l to m-1 do
     for i:=1 to n do
      x[i,j]:=x[i,j+1];

    for i:=1 to n-1 do
    begin
       writeln;
       for j:=1 to m-1 do
        write(x[i,j]:2,'  ');
    end;

    readln;
end.

вторую попробуй сам :yes: