% 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('=====================================');