Решения задач acmp.ru
Главная
Вход
Регистрация
Вторник, 29.09.2020, 01:50Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0293 Налоги

Скачать файл можно после просмотра рекламы:

04.06.2012, 17:36
var f: text;
  c,i,n:byte;
    max:real;
a:array [1..100,1..2] of byte;
begin
    assign(f,'input.txt');
        reset(f);
        read(f,n);

        for i:=1 to n do
        read(f,a[i,1]);

        for i:=1 to n do
        read(f,a[i,2]);

        close(f);

    max := A[1,1] /100 *a[1,2]; c:=1;
        for i:=2 to n do
    if max < a[i,1]/100*a[i,2] then begin
        max:=a[i,1]/100*a[i,2];c:=i;
    end;

    assign(f,'output.txt');
        rewrite(f);
        write (f,c);
        close(f);
end. 
Категория: Pascal | Добавил: shum
Просмотров: 2856 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020