|
Presenza/assenza di un certo valore k
Function QuantePresenzeVett(V: Vettore; L: Integer; K: Real): Integer;
Var
i,
Risposta: Integer;
Begin
Risposta:=0;
For i:=1 to L do
If(V[i] = K) then
Inc(Risposta);
QuantePresenzeVett:=Risposta;
End;
Quante presenze di numeri pari? (Se il vettore contiene numeri interi...)
Function QuantiPariVett(V: Vettore; L: Integer): Integer;
Var
i,
Risposta: Integer;
Begin
Risposta:=0;
For i:=1 to L do
If(V[i] Mod 2 = 0) then
Inc(Risposta);
QuantiPariVett:=Risposta;
End;
| 
