Domácí ukol, pascal, pomoc ! prosím – Pascal – Fórum – Programujte.com

Jedná se o první ukol v mém oboru bohužel jsem na začátku nikdy jsem neprogramoval a učitel na nás vybalil tohle: věřím že je to jednoduché, bohužel jsem to nikde na internetu nenašel. prosím o zdrojový soubor nebo kod. děkuji.

1. ukol

1. Je dán počet vstupních hodnot N a dále posloupnost N čísel a1, a2, …, aN. Všechna zadaná čísla jsou celá a jsou z rozsahu datového typu integer (mohou být kladná i záporná), hodnoty se v posloupnosti mohou opakovat. Napište program, který určí v zadané posloupnosti maximální hodnotu a počet jejích výskytů. Například pro vstup ve tvaru

     13

     4  7  4  4  4  5  7  5  7  5  7  7  7

bude výsledkem dvojice čísel

     7  6

neboť maximální hodnotou v posloupnosti je číslo 7 a nachází se tam celkem šestkrát.

A s cim konkretne potrebujes pomoci? Radime tu "jak pokracovat" kdyz se nekdo zasekne, nedelame tu trivialni domaci ukoly .. 

Dokazes aspon popsat jak bys toto resil ty sam, kdyz bys videl jen jedine cislo a pamatoval si jen to co si nekam zapises?

#2 KIIV
Muzu udelat pomoci array? nebo existuje lehci varianta?

samozrejme ze existuje snadnejsi varianta... prvni cislo das jako maximum a do poctu 1...

kdyz narazis na dalsi cislo vetsi nez aktualni maximum, tak zmenis maximum a zase pocet na 1

a kdyz se maximum rovna aktualnimu cislu tak jen pricitas poctu.. jinak nic

#4 KIIV
no třeba v excelu bych to dal. ale ne v tomhle?. vůbec nikdy jsem v pascalu nedělal. :-( a mam to mít dneska hotové. koukam aspon na tutorial v pascalu ale než zkouknu všechny dily a naučim se to bude to tak nejdříve za týden. :-(

Nedoporučuji, velmi špatné forum. nikdo nedokáže vysvětlit jednoduchost..

Jako ze bych to vysvetlil plne funkcnim programem? Sis spletl forum o programovani s "udelame za vas kazdy domaci ukol zadara a ve svem volnem case... obzvlaste kdyz ste to zacali delat hodinu pred odevzdanim a napisete do nazvu vlakna: pomoc, prosim!"

Je to úplně jinak. hlavně kdybych viděl jak to vypadá díky tomu bych se učil. snažím se už přes týden hledat na webu jak stím programem vůbec dělat atd. zapoměl jsem že dnes zadara ani kuře nehrabe. no nic díky.

ja spis nechapu, co bys k tomu asi tak na webu mohl najit... takhle trivialni programy nema smysl ani moc rozebirat jako "elaboraty"

proste zacnes programem na zjisteni maxima, a pak k tomu jeste pridas pocitadlo kdyz je cislo stejne jako maximum, tak se k nemu pricte (a pokud si nasel neco vetsiho tak to pocitadlo nastavis zase na 1)..

bohužel jsem v prvním semestru a vživotě jsem neprogramoval chodim na každou přednášku a jen co z toho mam je matika, matika a matika žádna praxe nix. nic nám v programu zatím neukazujou a to máme vněm dělat.

program blbost;

var pocethodnot: byte;

    hodnota: integer;

    maximum: integer;

    pocetmaxim: byte;

    I: byte;

begin

  maximum:=-maxint;

  pocetmaxim:=0;

  read(pocethodnot);

  for I:=1 to pocethodnot do

                            begin

                              read(hodnota);

                              if hodnota > maximum then

                                                        begin

                                                        maximum:=hodnota;

                                                        pocetmaxim:=1;

                                                        end

                             else if hodnota < maximum then

                                                        begin

                                                        end

                             else

                             begin

                              inc(pocetmaxim);

                             end

                            end;

        writeln(maximum);

        writeln(pocetmaxim);

end.

Moc děkuji, jdu to zkusit snad je to ono. jsem moc vděčný.

Diky za tip spravil jsem to a neslo to ale nejak na to prijdu

sorry to bylo k jinemu prispevku