pomoc s programem v Pascalu

[GameEs]

Č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.

[nuguien]

na kdy to chces? kouknul bych na to a zkusil to sepsat.

[GameEs]

na kdy to chces? kouknul bych na to a zkusil to sepsat.

potreboval bych to na zejtra takze kdybys to zvladl do vecera tak by to byla parada :)

Sent from my iPhone using Tapatalk

[GameEs]

nenašel by se někdo kdo by to sesmolil? :D do cca půlnoci dneska? Moc prosím, šíleně to potřebuju :D

[nuguien]

Prostě jestli ještě máš čas tak rychle musíš dát dohromady pole, mě se totiž furt nechtěl nainstalovat turbo pascal protože je starej..

uděláš pole ..tak jak si to napsal.

var pole[1,2,3..10]

a pak přes

if(pole[0] < 2) then

musíš kontrolovat a pokuď žádný číslo neni už menší tak ho přes writeln vypsat třeba tak

if(pole[1] < pole[4]) then

writeln(pole[1])

end

a takhle.. ono to je fakt lehký ale teď nevim jak to s turbo pascalem ale mezi delphi a turbo pascalem asi nebude v zápisu moc rozdíl.

Jestli máš skype nebo icq..msn nebo něco tak kdyžtak odepiš sem a pak jestli něco takovýho budeš mít tak napiš číslo nebo jméno,nick.. zkusim to nějak sepsat.

[nuguien]

Tak tusim ze uz ti to Any poslal..ale tak nic

[Anonymous_]

Ne, neposlal. V Pascalu neumim. Ale napisu mu to v C nebo v perlu nebo v PHP nebo ve Visual Basicu. Ale to mu je asi k nicemu tipuju :D

[GameEs]

nakonec jsem to nějak dal do kupy.. :D