Čau, naposledy ever se ozývám s nějakou pomocí v pascalu, tohle je poslední věc, kterou potřebuju udělat, než od toho budu mít pokoj a teď sem tam 3x nebyl, funkce sem úplně prošvihl, nemám páru jak to udělat. Za jakoukoliv pomoc budu moc vděčnej.. Ať už nějakej náznak jak bych to měl udělat, nebo rovnou program.
Díky!
Zadání:
Sestavte program v jazyce Turbo Pascal pro následující zadání:
Na vstup programu je dána posloupnost 10 celých čísel (pole). Napište funkci, která vrátí druhé nejmenší ze zadaných čísel. Dále napište proceduru, která vypíše (na základě vrácené hodnoty předchozí funkce) na obrazovku všechny pozice v poli, kde se nachází nalezené druhé nejmenší číslo.
(příklad: pole: 2, 5, 4, 2, 8, 9, 45, 2, 6, 2,1
funkce vrátí: 2
procedura vypíše na obrazovku: pozice 1, 4, 8, 10
Poznámka: při definici pole využijte zápis:
type pole = array[1..10] of integer;
var x: pole;
a ve funkci (proceduře) se odkazujte na tento typ.