program ricerca_elemento;

uses crt;

const n=10;

var v:array[1..n] of real;

    i:integer;

    trovato:boolean;

    b:real;

begin

  clrscr;

  writeln('caricamento elementi del vettore');

writeln;

  for i:=1 to n do

                begin

                  write('elemento n. ',i,' = ');

read(v[i]);

                end;

  writeln('elemento da ricercare = ');

  read(b);

  i:=1;

  trovato:=false;

  (*ricerca valore del rettore*)

while (i<=n) and (trovato=false) do

      begin

        if v[i]=b

           then trovato:=true;

        i:=i+1;

      end;

  if trovato=true

then writeln('elemento in posizione ',i-1,' uguale a ',b)

     else writeln(' non esistono elementi del vettore uguali a ',b);

     readln;

     repeat until keypressed;

  end.