Question

Va rog rezolvarea problemei!

Answer 1

var
 
 a:array of integer;
 i,n,j,c,k,e,p1,p2:integer;
 t:text;
 
begin

 assign(t,'atestat.in'); //Punctul a)
 reset(t);
 readln(t,n);
 
 setlength(a,n);
 
 for i:=0 to n-1 do begin
  read(t,a[i]);
  write(a[i],' ');
  end;
  
 close(t);
 writeln;
 
 for i:=0 to n-1 do begin //Punctul b)
  j:=a[i];
  k:=0;
  while j<>0 do begin
   c:=j mod 10;
   j:=j div 10;
   if odd(c) then inc(k);
   end;
  if k=0 then write(a[i],' ') else inc(e);
  end;
  
 if e=n then writeln('NU EXISTA NUMERE NUMAI CU CIFRE PARE'); 
 
 writeln; //Punctul c)
 read(p1,p2);
 
 assign(t,'atestat.out');
 rewrite(t);

 for p2:=p2 downto p1 do 
  for i:=0 to n-1 do
   if a[i]=p2 then write(t,p2,' ');
  
 close(t); 
  
end.