Posloupnost celých čísel – Pascal – Fórum – Programujte.com

Zdravim,
Začínám s Pascalem a nevím si  v této uloze rady ocenil bych pomoc, radu, návod.

Děkuji

 Na vstupu je zadána posloupnost kladných celých čísel (hodnoty z rozsahu datového typu integer) ukončená nulou. Délka posloupnosti není předem omezena (může být značná), hodnoty se v ní mohou jakkoliv opakovat. Určete délku maximálního souvislého rostoucího úseku čísel obsaženého v zadané posloupnosti. V rostoucím úseku je každé číslo ostře větší než číslo jemu předcházející. Délkou úseku rozumíme počet čísel, která tento úsek tvoří. Například pro vstupní posloupnost

4  6  6  14  5  9  19  29  29  32  15  3  6  8  7  0

bude správným výsledkem číslo 4, neboť nejdelší souvislý rostoucí úsek  5  9  19  29  má délku 4.

no budes potrebovat neco na ulozeni nejdelsiho poctu cisel v useku, pak neco na pocitani aktualniho poctu, neco na ulozeni predchozi hodnoty, neco na nacteni aktualni...  pak uz jen nacitat, porovnat s predchozim cislem, a pokud je to vetsi, tak pricist 1, pokud mensi tak nastavit na 1 (pred tim zkontrolovat, jestli to neni vic nez mas v maximalni delce) a pak samozrejme nezapomenout na prepsani stare hodnoty novou, abys to mel v dalsim kole s cim porovnat...

Ahoj,

potřebovala bych pomoct jak nejsnaze vyresit jednoduchu ulohu o dvou  posloupnostech celých kladných čísel od 1 do 30 a každá ukončená 0 a potrebuju udělat průnik.

Děkuji moc za pomoc

Nastuduj si používání datového typu množina (set). Pak si deklaruj dvě množiny a do každé načti jednu z těch posloupností (operátor +). Průnik potom velice jednoduše zjistíš operátorem *. Jediná ne úplně triviální věc bude vypsání výsledku, protože množiny se nedají číst sekvenčně. Budeš muset udělat cyklus od 1 do 30 a pokud dané číslo v tom průniku je (operátor in), vypsat ho, jinak nedělat nic.