Вопрос по информатике:
Pascal:
В области 10 районов. Для каждого района известны площади, засеянные пшеницей и урожай собранный с этих площадей. Определить, в каком районе средняя урожайность пшеницы была выше
- 27.01.2018 18:34
- Информатика
- remove_red_eye 13889
- thumb_up 50
Ответы и объяснения 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.
- 28.01.2018 14:06
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.