Question

Se considera un vector x cu n (mai mare dau egal decat 1 si mai mic sau egal decat 100 ) componente naturale cu maxim 4 cifre. Se cere sa se afiseze elementele pare in ordine crescătoare urmate de elementele impare in ordine descrescătoare. VA ROG, IMI TREBUIE URGENT, DAU COROANĂ

Answer 1

var 
 
 x:array[1..100] of integer;
 i,n:byte;
 min,max,m1,m2:integer;
 
begin

 read(n);
 writeln;
 

 for i:=1 to n do 
  read(x[i]);
  
 writeln;
  
 min:=x[1];
 max:=x[2];
 
 for i:=1 to n do
  begin
  if x[i]<min then min:=x[i];
  if x[i]>max then max:=x[i];
  end;

 for m1:=min to max do
  for i:=1 to n do
   if (x[i] mod 2 = 0) and (x[i]=m1) then
    write(x[i],' ');

 for m2:=max downto min do
  for i:=1 to n do
   if (x[i] mod 2 = 1) and (x[i]=m2) then
    write(x[i],' ');

end.