Vypočíta priemer kladných čísel

Kategória: Zadania Pascal

Program: Priemer.pas
Súbor exe: Priemer.exe

{ PRIEMER.PAS               Copyright (c) TrSek alias Zdeno Sekerak }
{ Vypocita priemer kladnych cisel                                   }
{ Vstup : cisle                                                     }
{ Vystup: priemer vsetkych kladnych cisel                           }
{                                                                   }
{ Datum:10.04.2000                             http://www.trsek.com }
 
program vektor_cisel;
var sum,cis : real;
    poc:integer;
begin
 poc:=0; sum:=0;
 WriteLn('Pis vektor cisel (0-koniec)');
 Repeat
  Write('Zadaj cislo:');
  ReadLn( cis );
  if( cis>0 ) then begin
    poc:=poc+1;
    sum:=sum+cis;
   end;
 Until( cis = 0 );
 
 sum:=sum/poc;
 Write('Priemer kladnych cisel je:', sum:6:3);
 ReadLn;
end.