Question

Paskal
Napisz program, który będzie wprowadzał z klawiatury liczby całkowite aż do wystąpienia liczby niedodatniej oraz obliczał i wprowadzał średnią arytmetyczną. Jaka liczba będzie tu znacznikiem końca danych?

Answer 1

Program kat;
uses CRT;
var
liczba,i,suma:integer;
srednia:real;
begin
clrscr;
repeat
Clrscr;
Writeln('Srednia: ',srednia:0:2);
Writeln('Podaj liczbe:');
readln(liczba);
i := i+1;
suma := suma + liczba;
srednia := suma / i;
until liczba <0;
Clrscr;
Writeln('Podano liczba ujemna, program konczy dzialanie');
Writeln('srednia z liczb wynosi: ',srednia:0:2);

readln;
end.



W razie jakiś reklamacji napisz mi prywatną wiadomość.