2001/02 – Fase scolastica – 05

di

Dato il seguente frammento di programma:

Var
   a, b: Array[1..5] of Integer;
   i, j: Integer;
   k   : Boolean;
Begin
   a[1]:=10; a[2]:=7; a[3]:=4; a[4]:=2; a[5]:=1;
   b[1]:=3;  b[2]:=2; b[3]:=5; b[4]:=6; b[5]:=4;
   For i:=1 To 5 Do
      Begin
         k:=true;
         For j:=5 DownTo 1 Do
            If a[i] <= b[j] Then
               k:=false;
         If k Then
            Write(a[i], ' ');
      End;
End.

l'output prodotto sarà:

  1. 10 7
  2. 10 7 4
  3. 10 7 4 2
  4. 10 7 4 2 1
  5. 2 1
  6. 1
  7. nessuna delle risposte precedenti è corretta.