👤
VITALINAAPOIAGO
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 :

GRIGORE2018GO

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.

Vă mulțumim că ați vizitat site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru întrebări sau asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!


Go Learnings: Alte intrebari