2000/01 – Fase scolastica – 08

di

Qual è il ciclo corretto per calcolare in n il numero di elementi di valore intero e dispari in un vettore dichiarato come

v: Array [1..MAX] Of Real;
  1. For i:=1 To MAX Do
   If(odd(v[i])) Then
      n:=n+1;
  2. For i:=1 To MAX Do
   If(v[i] Mod 2 <> 0) Then
      n:=n+1;
  3. For i:=1 To MAX Do
   If(Odd(Trunc(v[i]))) And (v[i]=Trunc(v[i])) Then
      n:=n+1;
  4. For i:=1 To MAX Do
   n:=n+Odd(v[i]);