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.