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

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.