Pascal - Konsolowe

Średnia arytmetyczna liczb

Średnia arytmetyczna liczb
Pascal - Konsolowe

Program: wyliczający średnią arytmetyczną wprowadzonych przez użytkownika liczb.

Użytkownik podaję dowolną ilość liczb, aż do podania cyfry 0. Wtedy program z wcześniej podanych liczb wylicza średnią arytmetyczną.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

Program Wprowadzanie;
uses crt;
var a,sum,i:integer;
    sr:real;
begin
     clrscr;
     repeat
     Write ('Wprowadz liczbe a: ');
     read (a);
     if a>0 then
     begin
          i:=i+1;
          sum:=sum+a;
     end;
     until (a<=0);
     sr:=sum/i;
     writeln('Program zakonczyl swoje dzialanie');
     writeln('Podales liczbe niedodatnia');
     writeln('Srednia z liczb podanych przez ciebie wynosi: ',sr:2:2);
     readkey;
end.