A=[63 48 58 71 69 82 79 63 75 92 74 66 87 49 37 60 32 87 63 72];
B=[45 41 83 54 74 63 77 100 34 58 48 45 99 63 81 64];
C=[ 85 95 80 60 70 55 93 58 67 96 50 68 35 25 64 26];
D=[ 74 30 79 47 79 83 43 56 94 37 81 78 ];
E=[ 99 85 75 61 58 32 35 73 61 99 69 60 70 63 65];
F=[ 83 55 60 84 98 47 56 56 51 35 26 33 92 52 58];
A=[A B C D E F];
A=A+15;

disp('Math128A Midterm II 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 II score distribution','A- to A+: 85 and above','B- to B+: between 70 and 80','C+ or worse: less than 70'));






