var B: array [1..20] of integer; i: integer; begin for i := 1 to 20 do readln(B[i]); writeln(); for i := 1 to 20 do if B[i] mod 2 = 0 then writeln(B[i]); end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Ne bucurăm dacă informațiile oferite v-au fost de ajutor. Pentru orice întrebare sau clarificare suplimentară, echipa noastră vă stă la dispoziție. Revenirea dumneavoastră ne onorează – nu uitați să ne salvați în lista de favorite!
