{ PRIEMER3.PAS Copyright (c) Pheo } { Program určí prospechový priemer triedy. } { } { Datum:23.04.2003 http://www.trsek.com } program priemer3; uses crt; var I,Z,sz,p,j,zn:integer; sp,pt,pz:real; begin clrscr; writeln; write ('Zadaj pocet ziakov z='); readln(z); writeln('Zadaj pocet predmetov p='); read(p); Sp:=0; FOR I:=1 TO z DO begin sz:=0; writeln('Nadiktuj znamky:'); for j:=1 to p do begin readln(zn); Sz:=Sz+Zn; end; pz:=sz/p; sp:=sp+pz; end; Pt:=Sp/z; writeln('Priemer znamok je:',Pt:4:2); repeat until keypressed; end.