Question

Scrieți un program Pascal, care citește de la tastatură numere pozitive (imediat cum utilizatorul introduce un număr negativ sau zero citirea de la tastatură ia sfârșit) și calculează media aritmetică a numerelor introduse. Se recomandă de utilizat ciclul „repeat”.


Urgent​

Answer 1

Răspuns:

var a,k:integer;

   c:real;

begin

c:=0;

k:=0;

writeln('Enter numere pana la 0: ');

repeat

readln(a);

c:=c+a;

k:=k+1;

until a=0;

c:=c/k;

writeln('Media aritmetica a numerelor introduse este: ',c:0:3);

end.