Одномерный мвссив, максимум отклонений от нормы Опции

[Nastenka]

Здравствуйте! помогите пожалуйста ПРАВИЛЬНО решить задачу!!!Известен месячный план выпуска некоторой продукции и объемы выпущенной продукции заводом за год (помесячно). Определить месяц, в котором было максимальное отклонение от плана. В качестве результата вывести номер месяца и отклонение. Это решение,как считает мой преподаватель,неправильно((

uses crt;
const plan=70;
var
   volume:array [1..12] of integer;
   max,j,i,diff:integer;
 
begin
     clrscr;
     randomize;
     max:=0;
     writeln('Plan = ', plan);
     writeln('volume :');
     for i:=1 to 12 do begin
         volume[i]:=random(101)+1;
         diff:=abs(plan-volume[i]);
         if max<diff then begin
            max:=diff;
            j:=i;
         end;
         writeln(i,'_month :',volume[i]);{ writeln(' difference:',diff); } 
     end;
     write('max: ',max,'; month: ',j);
end.

Тегами не забываем пользоваться...

Сообщение отредактировано: volvo - 26.12.2010 23:13

[Lapp]

помогите пожалуйста ПРАВИЛЬНО решить задачу!!!
...
Это решение,как считает мой преподаватель,неправильно((

Лично я не вижу в этом решении существенных недочетов. А чем преподаватель мотивирует свои слова?

В качестве догадок, что ему может не нравиться, могу привести следующее:
1. отделить цикл случайной генерации массива от цикла поиска;
2. вводить данные вручную или из файла;
3. вывод осуществлять в более понятном формате (не "max", а "Максимальное отклонение от плана было в 6 месяце и составило 65 единиц";
4 ...
5. убрать clrscr (впрочем, это я размечтался..))

[Nastenka]

привееет! да она говорит ,что так нельзя выводить writeln('Plan = ', plan) и спрашивает зачем вообще здесь randomize...

[Lapp]

привееет! да она говорит ,что так нельзя выводить writeln('Plan = ', plan) и спрашивает зачем вообще здесь randomize...

Боюсь, что ничего добавить не могу.
Да, Randomize нужен, чтоб "сбивать" случайную последовательность, генерируемую функцией Random, иначе при каждом запуске программы она будет повторяться. Такая повторяемость очень удобна для отладки, но неприемлема для окончательного варианта программы. Впрочем, в твоей программе случайность не нужна как таковая, поэтому Randomize можно выкинуть на фик.