Переваги та недоліки бездротових мереж​

Var v:array [0..100000] of integer;    a:array [0..100,0..100000] of integer;    m,p,k,w:integer;
procedure step(z,ma:integer);beginif z>0 then       if a[z,ma]<>a[z-1,ma] then                             if a[z-1,ma]<a[z-1,ma-v[z]]+v[z] then                                                              begin step(z-1,ma-v[z]);                                                                    write(v[z],' ');                                                              end                                                              else step(z-1,ma)                                                              else step(z-1,ma); end;

beginread(k);for p:=1 to k do begin   read(v[p]);   end;read(w);for p:=1 to k do begin   for m:=1 to w do begin      if m-v[p]>=0 then a[p,m]:=(max(a[p-1,m-v[p]]+v[p],a[p-1,m]))                   else a[p,m]:=a[p-1,m];      end;      end;if a[k,w]=w then step(k,w)            else writeln('No solution');end.

var

 mas: array[0..19]of integer;

 a, b, c, e: integer;

begin

 for a := 0 to 19 do mas[a] := random(100) - 50;

//заполняем массив  

 for a := 0 to 19 do if mas[a] < 0 then b := b + 1;

//количество отрицательных элементов

 for a := 0 to 19 do if mas[a] mod 2 = 0 then c := c + mas[a];

//сумму четных элементов

 for a := 0 to 19 do  

   case mas[a] of

     1..20: e := e + mas[a];

   end;

//произведение элементов из интервала 1;20    

 write(b, ' ', c, ' ', e);

end.

пометки после двух слешей в программе писать не нужно , и сам массив я сделал на 20 элементов