Question

Pascal:В области 10 районов. Для каждого района известны площади, засеянные пшеницей и урожай собранный с этих площадей. Определить, в каком районе средняя урожайность пшеницы была выше

Answer 1

Type
  rec=record
    s:integer;
    n:integer;
  end;
var
  i,maxi:integer;
  max:real;
  ar:array [1..10] of rec;
begin
  max:=-maxint;
  for i:=1 to 10 do begin
    readln(ar[i].s,ar[i].n);
    if ar[i].n/ar[i].s>max then begin
      max:=ar[i].n/ar[i].s;
      maxi:=i;
    end;
  end;
  writeln(maxi,' ',ar[i].n/ar[i].s);
end.

Answer 2

Для решения этой задачи на языке программирования Pascal, вы можете использовать массивы. Допустим, у вас есть массивы, представляющие площади и урожайность для каждого из 10 районов. Давайте обозначим эти массивы как `площадь` и `урожайность`. Ваша задача - определить район с самой высокой средней урожайностью.

Пример кода на Pascal может выглядеть следующим образом:

program УрожайностьПшеницы;

const
  Количество_Районов = 10;

var
  площадь: array[1..Количество_Районов] of real;
  урожайность: array[1..Количество_Районов] of real;
  средняя_урожайность: array[1..Количество_Районов] of real;
  сумма_урожайности: real;
  средняя: real;
  лучший_район: integer;
  i: integer;

begin
  // Ввод данных
  writeln('Введите площадь и урожайность для каждого из ', Количество_Районов, ' районов:');
  for i := 1 to Количество_Районов do
  begin
    write('Район ', i, ': ');
    readln(площадь[i]);
    readln(урожайность[i]);
  end;

// Расчет средней урожайности для каждого района
  for i := 1 to Количество_Районов do
  begin
    сумма_урожайности := сумма_урожайности + урожайность[i];
    средняя_урожайность[i] := урожайность[i] / площадь[i];
  end;

// Нахождение района с максимальной средней урожайностью
  средняя := средняя_урожайность[1];
  лучший_район := 1;
  for i := 2 to Количество_Районов do
  begin
    if средняя_урожайность[i] > средняя then
    begin
      средняя := средняя_урожайность[i];
      лучший_район := i;
    end;
  end;

// Вывод результата
  writeln('Район с самой высокой средней урожайностью: Район ', лучший_район);
  writeln('Средняя урожайность в этом районе: ', средняя:0:2);
end.

Этот код предполагает ввод пользователем данных о площади и урожайности для каждого из 10 районов. Затем он вычисляет среднюю урожайность для каждого района, определяет район с максимальной средней урожайностью и выводит результат на экран.