Kód: Vybrať všetko

program Vypocet_znamok;
uses crt;
var
  sucet,pocet,i,znamka,min,max : integer;
  priemer : real;

begin

 clrscr;

   writeln ('Program krasokorculovanie.');
   writeln ('Zadaj znamky. ');
   writeln ('Vypocet zadanim cisla 0');
   
   pocet:=0;   
   readln(znamka);
   sucet:=znamka;
   min:=znamka;
   max:=znamka;
 Repeat
   readln(znamka);

   if (znamka<=min) and (znamka>0) then
      min:=znamka;
	 
   if (znamka>=max) and (znamka>0) then
      max:=znamka;


   sucet := sucet + znamka;
   inc(pocet);

  until znamka = 0;

 priemer := (sucet-min-max) div (pocet - 2);
 writeln;
 writeln('Znamka je: ',priemer : 2 : 0);
 readln;
end.