Question

Alcatuiti un program pascal care ne afla media aritmetica la matematica. Va rog mult am nevoie urgent

Answer 1

var a:array[1..100] of integer;    n,i:integer;    avg,med:real;beginwriteln('Dati numarul de valori:');readln(n);writeln('Dati valorile');for i:=1 to n dobeginwrite('Val ',i,' =');readln(a[i]);end;for i:=1 to n doavg:=avg+a[i];med:=avg/n;writeln('Media aritmetica este: ',med:4:4);end.