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