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

[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 - 27.12.2010 3:13