Programação

[CHRS 0]

Boa noite, gostaria de ajuda nesse código, queria saber como faço para conseguir calcular a média aritmética para cada funcionário, variância populacional para cada funcionário, o desvio padrão para cada funcionário.

Funcionários	Quantidade de peças produzidas por dia
	Segunda	Terça	Quarta	Quinta	Sexta
A	10	9	11	12	8
B	15	12	16	10	11
C	11	10	8	11	12
D	8	12	15	9	11

 

Funcionário A: 10,0 ± 1,41 peças por dia
Funcionário B: 12,8 ± 2,32 peças por dia
Funcionário C: 10,4 ± 1,36 peças por dia
Funcionário D: 11,0 ± 2,45 peças por dia

E exibir a média aritmética +- desvio padrão, como no exemplo acima, para cada funcionário.

 

Var
   m:vetor[0..5,1..6]de caracter
   c,l:inteiro
   media:real
   
Inicio
   M[0]<-("      QUANTIDADE DE PEÇAS PRODUZIDAS POR DIAS")
   M[1,1]<-("Funcionarios")
   M[1,2]<-("  Segunda")
   M[1,3]<-("  Terça")
   M[1,4]<-("  Quarta")
   M[1,5]<-("  Quinta")
   M[1,6]<-("  Sexta")
   M[2,1]<-("     A")
   M[2,2]<-("           10")
   M[2,3]<-("       9")
   M[2,4]<-("     11")
   M[2,5]<-("      12")
   M[2,6]<-("       8")
   M[3,1]<-("     B")
   M[3,2]<-("           15")
   M[3,3]<-("      12")
   M[3,4]<-("     16")
   M[3,5]<-("      10")
   M[3,6]<-("      11")
   M[4,1]<-("     C")
   M[4,2]<-("           11")
   M[4,3]<-("      10")
   M[4,4]<-("      8")
   M[4,5]<-("      11")
   M[4,6]<-("      12")
   M[5,1]<-("     D")
   M[5,2]<-("            8")
   M[5,3]<-("      12")
   M[5,4]<-("     15")
   M[5,5]<-("       9")
   M[5,6]<-("      11")
   
   para l de 0 ate 5 faca
     escreval
     para c de 1 ate 6 faca
     escreva(m[l,c])
     fimpara
   fimpara