Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.
Nástěnka
❗22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
❗04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
❗23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.
Nejste přihlášen(a). Přihlásit
1)Je zadán seznam přirozených čísel ukončený -1, které nepatří do seznamu. Vypište nejprve všechna sudá čísla a potom lichá, v tom pořadí v jakém byla v seznamu oddělená mezerou. Lichých čísel nebude víc než tisíc.
2)Na standardním vstupu je dáno nejprve jedno kladné celé číslo n, které není větší než 100. Následuje permutace množiny přirozených čísel {1, 2, ..., n}, přičemž jednotlivá čísla jsou na vstupu od sebe oddělena mezerami. Všechny vstupní údaje jsou umístěny na jednom řádku.
Určete inverzní permutaci a vypište ji do jednoho řádku na standardní výstup. Čísla na výstupu mají být opět oddělena mezerami.
Příklad vstupu:
6 1 3 6 2 5 4
Odpovídající výstup:
1 4 2 6 5 3
Prosim pomoc, diky
Offline

2) Permutace se resila tady. Napisu sem tedy cely program, ale nevim, co je to nejaky ten kodex, o kterem jsi psala v jinem prispevku.
program permutace; var i,n:integer; p:array[1..100]of integer; q:array[1..100]of integer; begin read(n); for i:=1 to n do read(p[i]); for i:=1 to n do q[p[i]]:=i; for i:=1 to n do write(q[i],' '); end.
Offline