Question

Задание. Для проведения эксперимента выбраны 10 районов Московской области.Известны засеваемые площади и средняя урожайность по району.Название районаПлощадь посева (м)Средняя урожайность (т/га)Дмитровский9312Домодевский6517Клинский9815Лыткаринский6417Люберецкий10217Марьинский15514Мытищинский20716Орловский30719Реутовским13421Семеновским4514Определить количество урожая, собранного в каждом районе и в целом по экспериментальным районам области, а также среднюю урожайность по всем районам. Выделить районы с самой низкой и самой высокой урожайностью.

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<su[i] then
        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.