Pascal:В области 10 районов. Для каждого района известны площади, засеянные пшеницей и урожай собранный с этих площадей. Определить, в каком районе средняя урожайность пшеницы была выше
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.
Не нашли ответ?
Похожие вопросы