Umiestnenie súboru www.TrSek.com/zadania/priemer3.pas{ 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.