Vitalinaapoiaask
a fost răspuns

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​

Răspuns :

Grigore2018ask

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.

Ask Alte intrebari