A=[100, 98, 97, 95, 92, 90, 90, 88, 84, 84, 84, 82, 81, 81, 80, 80, 79, 78];
B=[77, 77, 76, 74, 73, 67, 62, 55, 53, 51];
C=[ 72,97,95,91,99,92,90,74,85,90,73,79,83,71,60,69,78,90,83];
D=[ 98,80,87,96,83,95,97,80,80,75,58,66,82,68,84,84,86,78,92,78];
E=[ 99, 98, 97, 95, 94, 91, 90, 89, 89, 88, 88, 88, 87, 87, 86, 86, 86];
F=[ 86, 85, 85, 85, 83, 82, 80, 79, 75, 73, 73, 72, 71, 71, 71, 70, 69, 68, 58, 51, 50];
A=[A B C D E F];
disp('Math128A Midterm I Stats');
disp(['mean = ', num2str(mean(A)), ',  median = ', num2str(median(A)), ', std = ', num2str(std(A))]);
disp(['Number of scores at least 90 = ', num2str(length(find(A>=90)))]);
disp(['Number of scores between 80  and 90 = ', num2str(length(find(A>=80 & A<90)))]);
disp(['Number of scores between 70  and 80 = ', num2str(length(find(A>=70 & A<80)))]);
disp(['Number of scores between 60  and 70 = ', num2str(length(find(A>=60 & A<70)))]);
disp(['Number of scores less than 60 = ', num2str(length(find(A<60)))]);
disp(['Total number of people taking the test = ', num2str(length(A))]);
A = sort(A,'ascend');
plot(A,'b.-');
title(strvcat('Midterm I score distribution','A- to A+: 85 and above','B- to B+: between 70 and 80','C+ or worse: less than 70'));






