Помогите плиз срочно с задачей

[alexBlack]

Судя по коду for m:=j to n do.

[puporev]

Вот уменя есть такая задача, буквы свои напиши и убери метки (label),зачем они тебе.

program matrica;
uses crt;
var n,i,j:integer;
    Nstr,Nstb:integer;
    a:array[1..50,1..50]of integer;
begin
clrscr;
write('n=');readln(n);
write('vvedite Nstr<n: ');readln(Nstr);
write('vvedite Nstb<n: ');readln(Nstb);
randomize;
for i:=1 to n do
   begin
      for j:=1 to n do
         begin
           a[i,j]:=random(10);
           write(a[i,j]:3);
         end;
      writeln;
   end;
readln;
{Udalenie stoldca}
for i:=1 to n do
for j:=Nstb to n-1 do
   begin
     a[i,j]:=a[i,j+1];
   end;
{Udalenie stroki}
for j:=1 to n do
for i:=Nstr to n-1 do
   begin
     a[i,j]:=a[i+1,j];
   end;
for i:=1 to n-1 do
   begin
     for j:=1 to n-1 do
     write(a[i,j]:3);
     writeln;
   end;
readln;
end.
end.

[Raptor5]

еще раз спс

[Alex21]

один вопрос - одна тема.
Задачи - в Помощь студентам.
Закрыто.