{-Victor De la Rocha}
{-Algoritmia@groups.msn.com}
{-www.myalgorithm.com}
{PROGRAMA 6: Muesta las veces que se repite un valor}
uses
 crt;
const
 max=100;
type
 matriz=array[1..max,1..max] of integer;
 vector=array[1..max] of integer;
var
 valor,veces:integer;
 filas,cols,cont1,cont2,cont3:integer;
 limite,t1,t2:integer;
 arreglo:matriz;
 temp:vector;
begin
 randomize;
 CLrScr;
 Write('Filas: ');Readln(filas);
 Write('Columnas: ');Readln(cols);
 for cont1:=1 to filas do
  begin
   for cont2:=1 to cols do
    begin
     arreglo[cont1,cont2]:=random(100);
     writeln('Matriz[',cont1,'][',cont2,'] = ',arreglo[cont1,cont2]);
    end;
  end;
  {introdusco los valores en un vector, para ordenarlos}
 writeln;
 limite:=filas*cols;
 cont3:=0;
 for cont1:=1 to filas do
  begin
   for cont2:=1 to cols do
    begin
     cont3:=cont3+1;
     temp[cont3]:=arreglo[cont1,cont2];
    end;
  end;
 {ordeno el vector}
 for cont1:=(filas*cols) downto 1 do
  begin
   for cont2:=1 to cont1 do
    begin
     if temp[cont2]>temp[cont1] then
      begin
       t1:=temp[cont1];
       t2:=temp[cont2];
       temp[cont1]:=t2;
       temp[cont2]:=t1;
      end;
    end;
  end;
  {Regreso los valores a la matriz}
  cont3:=0;
  for cont1:=1 to filas do
   begin
    for cont2:=1 to cols do
     begin
      cont3:=cont3+1;
      arreglo[cont1,cont2]:=temp[cont3];
     end;
   end;
  {Pido los valor a buscar en la matriz}
  veces:=0;
  write('Valor a verificar: ');Readln(valor);
  for cont1:=1 to filas do
   begin
    for cont2:=1 to cols do
     begin
      if arreglo[cont1,cont2]=valor then
       begin
        veces:=veces+1;
       end;{if}
     end;{cols}
   end;{filas}
  write('Veces: ',veces);
 Readkey;
end.{programa}