Posloupnost, která vyhosnotí nejmenší a největší číslo! – Pascal – Fórum – Programujte.com

Potřebuju program:

Je dána posloupnost celých kladných čísel ukončená 0. Určete kolikrát se mezi danými čísli nachází největší a nejmenší z nich.

Prosím, kdo pomůže? Už jsem něco sám napsal, ale odmítá to přejít z načítaní čísel do posloupnosti k vyhodnocení. 

pokud si sem dal veskery kod tak se divim ze to vubec nacita :)

pravdepodobne neukoncujes nacitani tou nulou jak je pozadovano

Nieco som skusil naprogramovat. Malo by to byt cca. dobre. No tu nulu na konci pola som uz do najmansieho cisla nepocital. Oprav si to ako chces

http://www.uloz.to/…Bk/cisla-pas

Tady máš moje řešení, napsal jsem to na koleni, takže nevim, zda-li ti to vezme překladač. Možná tam bude pár chybek. Myslím si, že komentáře nejsou nutný.

http://pastebin.com/5gKAKANV

Ahoj, kdo poradí s tabulkou vývojového diagramu: Je dána posloupnost kladných celých čísel ukončená nulou. Určete, kolikrát se mezi danými čísly nachází největší a nejmenší z nich. Děkuji předem.

Co to je "tabulka vývojového diagramu"? 

Jen tipuju: Tabulka = obrázek ve kterém jsou nějaké čáry?

Jestli sem ještě vůbec tazatelka zavítá, tak pro minimum to mám, pro maximum analogicky (fuj cizí slovo...) prostě obdobně...

#3 Jimi
ahoj můj milý pascal mi toto nechce přežvýkat------>+IntToStr(max)+

co s tím?

Jde o to, jaký překladač máš. Inttostr je funkce z Delphi, v Turbo Pascalu je pro tyhle účely procedura Str.

#8 Martin
Místo toho tam dej přímo max oddělený čárkou atd.

writeln('Maximum z pola cisel je : ',max,' Nachadza sa : ',pocMax,' krat');