Составить программу ,определяющую среднюю производительность Опции

[Dемон]

Pascal abc. Найти среднюю производительно труда ,если известно сколько га полей убиралось каждый день в одну неделю

Сообщение отредактировано: Dемон - 13.03.2012 19:31

[Lapp]

Держи, только это я писал в FP. В ABC может и не пойти..

type
  WeekDays= (Su,Mo,Tu,We,Th,Fr,Sa);

var
  i: WeekDays;
  s,t: real;

begin
  s:= 0;
  writeln('введите убранную площадь (га) по дням:');
  for i:=Low(WeekDays) to High(weekDays) do begin
    write(i,': ');
    readln(t);
    s:= s+t
  end;
  writeln('средняя производительность уборки в день составила ', s/(Succ(Ord(High(WeekDays)))):0:2,' га')
end.

[Dемон]

Огромное спасибо