clc;
clear;

format long
%deigma
d_zois=[56 87 51 79 93 34 48 45 21 9 ...
        23 58 52 68 62 46 53 69 70 36 ...
        43 64 82 30 54 67 49 31 67 84 ...
        55 52 60 73 43 11 57 60 81 48 ...
        27 43 50 71 53 69 58 32 63 70];
   
%megethos deigmatos  
n=length(d_zois);


%deigmatikos mesos
t=sum(d_zois)/n;
fprintf('%s %f\n', 'deigmatikos mesos: ', t);
 

%ektimitis ? ?.?.?.
l=2/t;
fprintf('%s %f\n\n', 'ektimitis lamda: ', l);