Knihy -veržnODE Zadanie 19

program zadanie19; type  kniha = record cislo,pozicanie:integer; nazov:string; end; var a : array[1..100] of kniha; b:array[1..100] of integer; i,j,n,pocet,max:integer; begin randomize; writeln('kolko chcete záznamov?'); readln(n); for i:=1 to n do a[i].pozicanie:=random(20); for i:=1 to n do writeln(i,'bola požičaná ',a[i].pozicanie,' krat'); max:=0; for i:=1 to n do begin if (a[i].pozicanie)>max then max:=a[i].pozicanie; end; writeln('najčastejšie bola vypožičaná ',max,'. kniha'); pocet:=1; for i:=1 to n do begin if a[i].pozicanie=0 then b[pocet]:=i; if b[pocet]=i then inc(pocet); end; writeln('ani raz neboli požičané tieto knihy: '); for i:=1 to pocet-1 do writeln(b[i]); j:=0; for i:=1 to n do j:=j+a[i].pozicanie; writeln('knihy boli vypozicane ',j,'. krát'); readln; end.