👤
a fost răspuns

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Ă

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 class=

Răspuns :

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.
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!


Ez Studiers: Alte intrebari