Pascal:

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

Question

Информатика

Жануся

25 ноября, 17:10

Pascal:

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

+3

Ответы (1)

Знаете ответ на вопрос?

Рюрик · 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.