FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
Sophya
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 54 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
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.
|
|
| |
|