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

[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...