👤
a fost răspuns

se considera tabloul X[1..n] de numere intregi, n<=100.Sa se scrie un program care afiseaza numerele pozitive, apoi cele negative si la sfirsit cele nule. In Pascal, va rog mult.

Răspuns :

var 

 x:array[1..100] of integer;
 i,n:integer;
 
begin

 read(n);
 writeln;
 
 for i:=1 to n do
  read(x[i]);
  
 writeln;
 
 for i:=1 to n do
  if x[i]>0 then write(x[i],' ');
  
 for i:=1 to n do
  if x[i]<0 then write(x[i],' ');
 
 for i:=1 to n do
  if x[i]=0 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