Удалить из массива A(N,M) строки и столбцы

[nuklon712]

здарвствуйте помогите с решением этой задачи:

Удалить из массива A(N,M) первый и последний столбцы и пересекающиеся с ними первую и последнюю строки.

Вот мой вариант, он он работоспособен только на половину

uses crt;
const
    M = 5;
    N = 5;

var
    A: array[1..N,1..M] of integer;
    i, j:integer;
    k,p,o:byte;

begin
Randomize;
clrscr;
    writeln ('Massiv');

    for i := 1 to M do
        for j := 1 to N do
            A[i,j]:=Random(101)-50;

    for i := 1 to M do begin
        for j := 1 to N do
            write (A[i,j]:5);
        writeln
    end;
repeat
K:=1;
until k in [1..p];
for i:=k to p-1 do
for j:=1 to o do
a[i,j]:=a[i+1,j];
p:=p-1;
writeln('bez udalennoi stroki:');
for i:=1 to p do
 begin
  for j:=1 to o do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

[Sciv]

repeat
K:=1;
until k in [1..p];

А в чем логика этого цикла? На кой он нужен, если k:=1?


Вы, по моему, код излишне усложнили. Обычным циклом вполне можно справиться:

for i:=1 to N do begin
  a[i,m]:=0;
  for j:=2 to M-1 do a[i,j-1]:=a[i,j];
end;

потом для строк - точно так же, только I меняется с j, a M с N.

[nuklon712]

спасибо большое что откликнулись, но у меня возникла небольшая проблема, а именно, после встраивания вашего исправления в мою программу она выводит предпоследний столбец в ответе и завершается.
вот мой код:

PHP код:

uses crt;
const
    M = 5;
    N = 5;

var
    A: array[1..N,1..M] of integer;
    i, j:integer;
    k,p,o:byte;

begin
Randomize;
clrscr;
    writeln ('Massiv');

    for i := 1 to M do
        for j := 1 to N do
            A[i,j]:=Random(101)-50;
    for i := 1 to M do begin
        for j := 1 to N do
            write (A[i,j]:5);
        writeln
    end;
for i:=1 to N do begin
  a[i,m]:=0;
  for j:=2 to M-1 do a[i,j-1]:=a[i,j];
  write(a[i,j]:4);
  writeln;
  end;
readln
end. 


[nuklon712]

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

PHP код:

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    n,m,i,j,k:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов=');
readln(n);
until n in [3..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(50);
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
n:=n-1;{удаление последнего столбца}
for i:=1 to m do {удаление первого столбца}
for j:=1 to n-1 do
a[i,j]:=a[i,j+1];
n:=n-1;
 
for i:=1 to m-1 do
for j:=1 to n do
a[i,j]:=a[i+1,j];
m:=m-1;
 
for i:=1 to m-1 do
for j:=1 to n do
a[m,i]:=a[m-1,j];
m:=m-1;
 
writeln('Удалены 1 и последний столбцы и 1 и последняя строки');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.