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:
Popa Bianca 25 ani
 | Femeie
25 ani
Valcea
cauta Barbat
25 - 63 ani |
|
eggzit
Username: 6R9PKQUKKU
 Inregistrat: acum 20 ani
Postari: 215
|
|
{tablou undidimensional de n elemenere care contine nr nat nenule
un prg care verifica dak vect repr o permutare a multimii 1 2 3 ,,n si fara
pct fixe.o perm are pct fixe dak pozitia e agala cu un elem din tablou}
program sase;
var a:array[1..100] of integer;
n,i,k,j:integer;
ok:boolean;
begin
write('n='); readln(n);
k:=0;ok:=true;
for i:=1 to n do begin
write('a[',i,']='); readln(a[i]); end;
for i:=1 to n do
for j:=i+1 to n do
if a[i]=a[j] then ok:=false;
for i:=1 to n do
if (a[i]>n) then ok:=false;
for i:=1 to n do if a[i]=i then
k:=k+1;
if ok and (k=0) then writeln('permutare fara pct fixe')
else writeln('nu este permutare FARA pct fixe');
readln;
end.
|
|
| pus acum 18 ani |
|