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

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.