Задание. Для проведения эксперимента выбраны 10 районов Московской области. Известны...

Question

Задание. Для проведения эксперимента выбраны 10 районов Московской области.

Известны засеваемые площади и средняя урожайность по району.

Название района

Площадь посева (м)

Средняя урожайность (т/га)

Дмитровский

93

12

Домодевский

65

17

Клинский

98

15

Лыткаринский

64

17

Люберецкий

102

17

Марьинский

155

14

Мытищинский

207

16

Орловский

307

19

Реутовским

134

21

Семеновским

45

14

Определить количество урожая, собранного в каждом районе и в целом по экспериментальным районам области, а также среднюю урожайность по всем районам. Выделить районы с самой низкой и самой высокой урожайностью.

---

Answer 1

Program Mcastiel;
uses crt;
const n = 10;
var
  rayon:array [1..n] of string;
  pl:array [1..n] of real;
  su:array [1..n] of real;
  ur:array [1..n] of real;
  i,maxnum,minnum:integer;
  max,min,sum,area: real;
begin
  rayon[1]:='Дмитровский';  pl[1]:=93;  su[1]:=12;   
  rayon[2]:='Домодевский';  pl[2]:=65;  su[2]:=17;
  rayon[3]:='Клинский';     pl[3]:=98;  su[3]:=15;   
  rayon[4]:='Лыткаринский'; pl[4]:=64;  su[4]:=17;   
  rayon[5]:='Люберецкий';   pl[5]:=102; su[5]:=17;   
  rayon[6]:='Марьинский';   pl[6]:=155; su[6]:=14;   
  rayon[7]:='Мытищинский';  pl[7]:=207; su[7]:=16;   
  rayon[8]:='Орловский';    pl[8]:=307; su[8]:=19;   
  rayon[9]:='Реутовский';   pl[9]:=134; su[9]:=21;   
  rayon[10]:='Семеновским'; pl[10]:=45; su[10]:=14;   
  ur[1]:=pl[1]*su[1];
  max:=su[1];
  min:=su[1];
  sum:=ur[1];
  maxnum:=1;
  minnum:=1;
  area:=pl[1];
  for i:=2 to n do
    begin
      ur[i]:=pl[i]*su[i];
      sum:=sum+ur[i];
      area:=area+pl[i];
      if max        begin
          max:=su[i];
          maxnum:=i;
        end;
      if min>su[i] then
        begin
          min:=su[i];
          minnum:=i;
        end;
    end;
  writeln();writeln();
  writeln('Внимание! Alphaeus объявляет результаты экспреримента!');
  writeln('В целом по области собрано ',sum,' тонн');
  writeln('Средняя урожайность по области: ',sum/area,' т/га');
  writeln();
  writeln('Самая maxвысокая урожайность в ',rayon[maxnum],' районе: ', su[maxnum],' т/га');
  writeln('Так держать!!!'); writeln();
  writeln('Самая minнизкая урожайность в ',rayon[minnum],' районе: ', su[minnum],' т/га');
  writeln('Позор!!!');
end.