Program P5;
type tab=array[1..10] of integer;
var a:tab;
    i,k,n:integer;
procedure citire(var b:tab; var k:integer);
var i:integer;
begin
  write('k='); readln(k);
  write('tastati','k','numere:');
  for i:=1 to k do read(b[i]);
 end;
procedure afisare(var b:tab; k:integer);
var i:integer;
begin
  writeln('continutul tabloului:');
  for i:=1 to k do
  write(b[i],' ');
 end;
procedure inlocuire(var x:tab; n:integer);
var i:integer;
begin
  for i:=1 to n do
  if x[i] mod 2=1 then x[i]:=0
                  else x[i]:=1;
 end;
begin{main}
  citire(a,n);
  inlocuire(a,n);
  write('tabloul obtinut:');
  afisare(a,n);
end.

UHJvZ3JhbSBQNTsKdHlwZSB0YWI9YXJyYXlbMS4uMTBdIG9mIGludGVnZXI7CnZhciBhOnRhYjsKICAgIGksayxuOmludGVnZXI7CnByb2NlZHVyZSBjaXRpcmUodmFyIGI6dGFiOyB2YXIgazppbnRlZ2VyKTsKdmFyIGk6aW50ZWdlcjsKYmVnaW4KICB3cml0ZSgnaz0nKTsgcmVhZGxuKGspOwogIHdyaXRlKCd0YXN0YXRpJywnaycsJ251bWVyZTonKTsKICBmb3IgaTo9MSB0byBrIGRvIHJlYWQoYltpXSk7CiBlbmQ7CnByb2NlZHVyZSBhZmlzYXJlKHZhciBiOnRhYjsgazppbnRlZ2VyKTsKdmFyIGk6aW50ZWdlcjsKYmVnaW4KICB3cml0ZWxuKCdjb250aW51dHVsIHRhYmxvdWx1aTonKTsKICBmb3IgaTo9MSB0byBrIGRvCiAgd3JpdGUoYltpXSwnICcpOwogZW5kOwpwcm9jZWR1cmUgaW5sb2N1aXJlKHZhciB4OnRhYjsgbjppbnRlZ2VyKTsKdmFyIGk6aW50ZWdlcjsKYmVnaW4KICBmb3IgaTo9MSB0byBuIGRvCiAgaWYgeFtpXSBtb2QgMj0xIHRoZW4geFtpXTo9MAogICAgICAgICAgICAgICAgICBlbHNlIHhbaV06PTE7CiBlbmQ7CmJlZ2lue21haW59CiAgY2l0aXJlKGEsbik7CiAgaW5sb2N1aXJlKGEsbik7CiAgd3JpdGUoJ3RhYmxvdWwgb2J0aW51dDonKTsKICBhZmlzYXJlKGEsbik7CmVuZC4=

az0xMA==

k=10