MATEMANIJA

Nekoliko ljudi stoji ispred blagajne jedan iza drugog. Kasirka pokušava da prebroji ljude koja ona vidi, a to su oni koji su viši od svih ljudi ispred njih. Napisati program koji učitava broj [inlmath]N[/inlmath] ljudi u redu, a zatim njihove visine redom, i odgovara na pitanje koliko njih blagajnica može da vidi.

Za učitavanje visina je dole priložen kod, ali dalje ne znam kako uporediti svaku unetu visinu sa svakom do tada unetom visinom.

Kôd: Obeleži sve

program visina;
var n,i:integer; h:real;
begin
  write('Unesi n:');
  readln(n);
  For i:=1 to n do
    begin
      readln(h);
      ......

Napravi još dve promenljive (recimo, neka to budu [inlmath]\mathtt{a=0}[/inlmath] i [inlmath]\mathtt{b=0}[/inlmath]). Promenljiva [inlmath]\mathtt{a}[/inlmath] će označavati najveću unetu visinu do tog trenutka, dok će [inlmath]\mathtt{b}[/inlmath] označavati broj osoba koje blagajnica vidi. Svaki put u for petlji kada je [inlmath]\mathtt{h>a}[/inlmath], neka se [inlmath]\mathtt{b}[/inlmath] poveća za jedan (pošto blagajnica tu osobu vidi), i neka [inlmath]\mathtt{a}[/inlmath] dobije vrednost [inlmath]\mathtt{h}[/inlmath] (pošto je to nova najviša osoba). Tako ćeš, idući redom, uvek znati koliko je visoka najviša osoba od prvih [inlmath]\mathtt{n}[/inlmath] osoba, kao i koliko osoba blagajnica vidi ([inlmath]\mathtt{b}[/inlmath]).