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 pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!
