A kdy jsi tu první přednášku měl, že ses to ještě nestihl doučit?

Zvládneš dát dohromady aspoň jednoduchý prográmek, třeba podle
vzoru?
Takže máš řadu celých čísel (integer) od nuly do nějakého limitu, který je Pascal schopný přijmout. Nekonečno to zdaleka není. Řada je ukončená číslem -1, po jehož nalezení má program vypsat výsledek.
Nejdřív se zamysli na tím, kam budeš ukládat nejvyšší zatím nalezenou hodnotu, a co tam budeš mít před začátkem programu! Protože budeš hledat největší číslo, hodí se nastavit si počáteční hodnotu menší než je nejmenší hodnota v rozsahu, nebo použít první načtenou hodnotu.
Proměnné si pojmenuj tak, aby na první pohled bylo zřejmé co obsahují, pro tuhle úlohu se hodí:
cislo - právě načtené číslo ze vstupu,
nejvetsi - největší číslo jaké se zatím načetlo.
Cyklus se bude opakovat až do načtení zarážky (-1), a v něm pokaždé proběhne načtení a porovnání s proměnnou
nejvetsi. Pokud načtené
cislo je větší, tak se do té
nejvetsi okopíruje.
Na závěr si zjistíš jestli bylo vůbec nějaké číslo na vstupu, a to vypíšeš, jinak nahlásíš chybu:
Kód: Vybrat vše
čti(cislo);
nejvetsi:=cislo;
dokud (cislo>-1)
začátek
čti(cislo);
když (cislo>nejvetsi)
nejvetsi:=cislo;
konec
když (nejvetsi>-1)
piš(nejvetsi)
jinak
piš('Nebylo zadáno žádné číslo!')