Pascal/Turbo Pascal - Pascal/Turbo Pascal - Matrices

uses

 crt;

var

    matriz[1..20] of integer;

    i, lugar : integer;

   begin

           clrscr;

          fillchar(matriz,sizeof(matriz),0);

          randomize;

          lugar := random(19) + 1;

          matriz[lugar] := 2;

          for i := 1 to 20 do

          write('  ',matriz[i]);

           readkey;

  end.