Удаление элементов из двумерной матрицы

[Димитрон]

Решите, у меня не получается:
В заданной матрице размером 4 на 5 удалить 2 строку и 3 столбец.

[Stilet]

у меня не получается

показывай как не получается.

[Димитрон]

у меня в первую очередь не получается задать матрицу в прямоугольном виде, всё время в строчку печатается или в столбец, например
var
a:array[1..n,1..m] of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(30);
writeln(a[i,j],' ');
end;
...
вроде всё правильно... или что то не так?

[Рамик]

Сообщение от Димитрон

у меня в первую очередь не получается задать матрицу в прямоугольном виде, всё время в строчку печатается или в столбец, например
var
a:array[1..n,1..m] of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(30);
writeln(a[i,j],' ');
end;
...
вроде всё правильно... или что то не так?

чтобы в прямоугольном виде выводилось:

...
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(30);
write(a[i,j],' ');
if j>m then
writeln(a[i,j],'');
end;
...

вроде так...

[Димитрон]

неа, не работает

[Teksa]

ну если память зараза не изменяет то вывод такой, вводе по аналогии

for i:=0 to rowcount do
                  begin
              for j:=0 to colcount do
                 write(A[i,j],'   ');
                   writeln;
                   end;

[Рамик]

for i:=1 to n do
   for j:=1 to m do
      a[i,j]:=random(30);
for i:=1 to n do
     for j:=1 to m do begin
writeln(a[i,j],' ':3);
writeln;
end;
...

вот так вроде...пробуй..

[Igomax]

for i:=1 to n do begin writeln;
for j:=1 to m do
a[i,j]:=random(30); end;
for i:=1 to n do begin writeln;
for j:=1 to m do
write(a[i,j]:3);

Так будет матрицей выводить

[Рамик]

program mass;
uses crt;
var a:array[1..4,1..5] of integer;
    i,j:integer;
begin
clrscr;
randomize;
writeln('vvedite elementi:');
for i:=1 to 4 do
    for j:=1 to 5 do
    a[i,j]:=random(30);
writeln('pervonachalnaya matrica:');
for i:=1 to 4 do begin
    for j:=1 to 5 do
    write(a[i,j],'':3);
    writeln;
    end;
writeln;
writeln('izmenennaya matrica:');
for i:=1 to 4 do
    for j:=3 to 5 do
    a[i,j]:=a[i,j+1];
for j:=1 to 4 do
    for i:=2 to 4 do
    a[i,j]:=a[i+1,j];
for i:=1 to 3 do begin
    for j:=1 to 4 do
    write(a[i,j],'':3);
    writeln;
    end;
end.

вот короче тебе задача...не знаю правильно ли составлена, но резулльтат выдает тот что нужно...

P.S. Если я тебе помог, то нажми на весы...