fork download
copy 
  1. var tb:array of array of integer;
  2. var n,y,x,ry,rx:integer;
  3. begin
  4.   Randomize;
  5.   Write('Podaj liczbe n: ');
  6.   ReadLn(n);
  7.   SetLength(tb,n,n);
  8.   for y:=0 to n-1 do for x:=0 to n-1 do tb[y,x]:=Random(100);
  9.   while n>0 do
  10.   begin
  11.     WriteLn('Aktualny rozmiar: ',n);
  12.     for y:=0 to n-1 do
  13.     begin
  14.       for x:=0 to n-1 do Write(tb[y,x]:3);
  15.       WriteLn;
  16.     end;
  17.     WriteLn;
  18.     ry:=random(n);
  19.     rx:=random(n);
  20.     WriteLn('Usuwamy wiersz ',ry,' i kolumne ',rx);
  21.     for y:=0 to n-2 do for x:=0 to n-2 do tb[y,x]:=tb[y+ord(y>=ry),x+ord(x>=rx)];
  22.     Dec(n);
  23.     SetLength(tb,n,n);
  24.   end;
  25.   //ReadLn;
  26. end.
Success #stdin #stdout 0s 276KB
comments (?)
stdin
copy 
7
stdout
copy 
Podaj liczbe n: Aktualny rozmiar: 7
 66 40 11 96 61  6 45
 69 59 53 39 83 43 51
 59 14 48 27  6 91 44
 78  5 44 96 19 65 45
 27 79 59 78 52 76 70
 27 32 88 48 99 82 28
 79 53 99 31 41 11  5

Usuwamy wiersz 1 i kolumne 2
Aktualny rozmiar: 6
 66 40 96 61  6 45
 59 14 27  6 91 44
 78  5 96 19 65 45
 27 79 78 52 76 70
 27 32 48 99 82 28
 79 53 31 41 11  5

Usuwamy wiersz 5 i kolumne 2
Aktualny rozmiar: 5
 66 40 61  6 45
 59 14  6 91 44
 78  5 19 65 45
 27 79 52 76 70
 27 32 99 82 28

Usuwamy wiersz 3 i kolumne 0
Aktualny rozmiar: 4
 40 61  6 45
 14  6 91 44
  5 19 65 45
 32 99 82 28

Usuwamy wiersz 0 i kolumne 1
Aktualny rozmiar: 3
 14 91 44
  5 65 45
 32 82 28

Usuwamy wiersz 2 i kolumne 1
Aktualny rozmiar: 2
 14 44
  5 45

Usuwamy wiersz 1 i kolumne 0
Aktualny rozmiar: 1
 44

Usuwamy wiersz 0 i kolumne 0
https://ideone.com/V8wtgy
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!