Knihy -veržnJETAM - Zadanie 19

program deventnasty; var a:array[1..100]of integer; i,n,max,m:integer;  begin randomize; writeln('zadaj pocet knih'); readln(n); m:=n; for i:=1 to n do a[i]:=random(10); for i:=1 to n do write(a[i],' '); for i:=1 to n do if a[i]>max then max:=a[i]; for i:=1 to n do begin if a[i]= 0 then begin writeln('kniha cislo "',i,'" nebola pozicana ani raz.');m:=m-1;end; if a[i]= max then writeln(' kniha cislo "',i,'" bola pozicana najcastejsie.'); end; writeln('bolo pozicanych ',m,' knih.'); readln; end.