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:
Profil Kitana
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 48 ani |
|
eggzit
Username: 6R9PKQUKKU
 Inregistrat: acum 20 ani
Postari: 215
|
|
{un tablou unidimensional d n elemente care snt mai mari ca 2
un prg care ordenaza nr prime ast incat nr care nu sunt prime vor ramane pe poz}
program opt;
var a:array[1..100] of integer;
var i,j,n,aux:integer;
function prim (el:integer):boolean;
var k:integer;
begin
prim:=true;
for k:=2 to el div 2 do
if el mod k = 0 then prim:=false;
end;
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 (prim(a[i])=true)and(prim(a[j])=true) then
if a[i]>a[j] then begin
aux:=a[i]; a[i]:=a[j]; a[j]:=aux;
end;
for i:=1 to n do write(a[i],' ');readln;
end.
|
|
| pus acum 18 ani |
|