Поиск по этому блогу

пятница, 27 октября 2017 г.

Налоги

(Время: 1 сек. Память: 16 Мб Сложность: 20%)
В некотором государстве действует N фирм, конкурирующих между собой. У каждой фирмы есть некоторая прибыль в год, равная V[i] американских рублей. У царя есть любимые фирмы, а есть нелюбимые. Соответственно, налог для всех фирм разный и назначается царем в индивидуальном порядке. Налог на i-ую фирму равен p[i] процентов.
Собиратели статистики решили посчитать, с какой фирмы в государственную казну идет наибольший доход (в казну идут все налоги). К сожалению, они не учили в детстве ни математику, ни информатику (так что учитесь, дети!), и их задача резко осложняется.
Помогите им в этой нелегкой задаче.

Входные данные
Во входном файле INPUT.TXT сначала записано число N - число фирм (0 < N ≤ 100). Далее идет N целых неотрицательных чисел, не превышающих 154 - доходы фирм, а затем еще N целых чисел от 0 до 100 - налоги фирм в процентах.
Выходные данные
В выходной файл OUTPUT.TXT выведите одно число - номер фирмы, от которой государство получает наибольший налог. Если таких фирм несколько, выведите фирму с наименьшим номером.
Примеры


INPUT.TXT
OUTPUT.TXT
1
1
1
1
1
2
2
1 2
3 2
2
3
3
100 1 50
0 100 3
3

Решение
var n,i,m:integer;
a:array[1..100,1..2] of integer;
p:real;
f,f1:text;
begin
assign(f,'input.txt');
reset(f);
readln(f,n);
for i:=1 to n do
read(f,a[i,1]);
readln(f);
for i:=1 to n do
read(f,a[i,2]);
close(f);
if n=1 then m:=1 else
begin
p:=a[1,1]/100*a[1,2];m:=1;
for i:=2 to n do
if a[i,1]/100*a[i,2]>p then begin p:=a[i,1]/100*a[i,2];m:=i; end;
end;
assign(f1,'output.txt');
rewrite(f1);
write(f1,m);
close(f1);
end.

Все вопросы по решению пишите в комментариях

Комментариев нет:

Отправить комментарий