FORUM
Pagina de start a forumului eggzit.3xforum.ro 		Lista Forumurilor Pe Tematici
FORUM | Reguli | Inregistrare | Login

POZE FORUM

Nu sunteti logat. 		Nou pe simpatie:
roxigirl85 pe Simpatie.ro
Femeie
25 ani
Bucuresti
cauta Barbat
30 - 46 ani
FORUM / Forum Nou / 9  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
Postari: 215
{tablou undimensional de n elemente care contine nr nat un pg care afiseaza
perechile de nr corespondente 2 nr sunt coprespondente dak nr de numere mai mici
decat primul numar este egal cu nr de numere mai deact cel de-al doilea}
program noua;
type vector=array[1..100]of integer;
var x:vector;n,i,j:integer;aux:integer;
begin
write('n=');readln(n);
for i:=1 to n do
    begin
    write('x[',i,']=');readln(x[i]);
    end;
for i:=1 to n-1 do
for j:=i+1 to n do
if x[i]>x[j] then
    begin
         aux:=x[i];x[i]:=x[j];x[j]:=aux;
    end;
for i:=1 to n div 2 do
    writeln(x[i],' ',x[n-i+1]);
readln;
end.
pus acum 18 ani
   
Pagini: 1  

Mergi la