% Input data for three monkeys
NUM_MONKEYS = 3;
NUM_DAYS = 5;
% initialize data to -1)
data = ones(NUM_MONKEYS, NUM_MONKEYS) * -1;
% Get monkey data
for monkey = 1:NUM_MONKEYS,
disp('----------');
% enter row data as days of week
for day = 1:NUM_DAYS,
is_valid = false;
while ~is_valid,
prompt = ['Monkey ' num2str(monkey) ', day ' num2str(day) ': '];
data(monkey, day) = input(prompt);
is_valid = data(monkey, day) >= 0;
if ~is_valid,
disp('Try again.');
end; % if
end % while
end % inner for
end % outer for
% for each column, compute the average:
avgeaten = zeros(1, NUM_DAYS);
for day = 1:NUM_DAYS,
avgeaten(day) = mean(data(:, day));
end % for
% Display report
disp('=====================================');
disp('The average amount eaten on each day:');
disp(avgeaten);
disp(['The least amount eaten this week: ' num2str(min(min(data))) ]);
disp(['The greatest amount eaten this week: ' num2str(max(max(data))) ]);
disp('=====================================');