vettori e matrici

esci algebraturbo.htm

PROGRAM matri13;
(* caricamento valori interi in vettore e ricerca LINEARE elemento *)
(* valori compaiono una sola volta,senza duplicati *)
uses crt;
var h,d,n:integer;
v:array[1..50] of integer;

begin
clrscr;
write('scrivi numero elementi < 50 ');readln(n);
writeln('scrivi elementi del vettore :interi ');
for h:=1 to n do
begin
write('elemento n.',h,' = ' );readln(v[h]);
end;
write('scrivi elemento da cercare in vettore ');readln(d);
h:=0;
repeat
h:=h+1;
until (v[h]=d) or (h=n);
if v[h]=d then
writeln(d,' = elemento cercato si trova nel posto ',h,' del vettore')
else
writeln(d,' questo elemento non si trova nel vettore');

writeln;
writeln('premiINVIO');
readln;
end.