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:
runnyroxy Profile
Femeie
25 ani
Suceava
cauta Barbat
26 - 57 ani
FORUM / Forum Nou / 7  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
Postari: 215
{dandu-se numele a n persoane, sa se afiseze alfabetic crescator persoanele si descrecato persoane}
program sapte;
var a:array[1..100] of string[15];
i,j,n:integer;
aux:string[15];
begin
write('n='); readln(n);
for i:=1 to n do begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin
aux:=a[i]; a[i]:=a[j]; a[j]:=aux;
end;
writeln('ordonarea crescatoare alfabetica:');
for i:=1 to n do write(a[i],' ');
writeln;
writeln('ordonarea descrescatoare alfabetica:');
for i:=n downto 1 do write(a[i],' ');
readln;
end.
pus acum 18 ani
   
Pagini: 1  

Mergi la