0 / 0 / 0
Регистрация: 20.10.2011
Сообщений: 7
1

Определить, сколько купюр получит каждый работник

21.10.2011, 11:28. Показов 1508. Ответов 4
Метки нет (Все метки)

Вася с Петей и Колей заработали много денег. Чтобы не мучиться с дележкой, они решили, что сначала Вася заберет все купюры максимального достоинства, затем Петя – минимального , а все оставшиеся – Коля Помогите рассчитать, кто сколько купюр получит.

В первой строке содержится число N (1 ≤ N ≤ 1000000) – количество купюр. Во второй строке записано N натуральных чисел, не превосходящих 10 в 9 степени – номиналы купюр.

Выведите через пробел три числа: сколько купюр достанется Васе, Пете и Коле соответственно.
Пример
input.txt output.txt
4
1 2 3 4: 1 1 2
5
2 2 4 4 4 : 3 2 0
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.10.2011, 11:28
Ответы с готовыми решениями:

Массив: определить, сколько денег получит вкладчик в конце года
Известен годовой процент на вклад с капитализацией (начисление процентов ежемесячно). Определить,...

Определить, сколько студентов получит диплом в конце пятого курса
На первый курс факультета принимается K студентов. Каждую сес-сию N1% студентов получают хотя бы...

Определить сколько раз встречается каждый символ в строке
Дана строка текста. Определить сколько раз встречается каждый символ в строке. Например: Str: “x w...

Определить, на сколько каждый элемент массива отличается от заданного числа
Составить массив, каждый элемент которого показывает, на сколько соответсвующий элемент, исходного...

4
143 / 143 / 141
Регистрация: 05.04.2011
Сообщений: 270
21.10.2011, 12:05 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses math;
var
    A:array[1..1000010] of longint;
    i,n,s,ma,mi,s1:longint;
begin
 
    readln(n);
    mi:=(1 shl 30);
    ma:=-(1 shl 30);
    for i:=1 to n do begin
        read(a[i]);
        ma:=max(ma,a[i]);
        mi:=min(mi,a[i]);
    end;
    if ma=mi then write(0,' ',n,' ',0)
    else
    begin
        for i:=1 to n do begin
            if a[i]=ma then s:=s+1;
            if a[i]=mi then s1:=s1+1;
        end;
        writeln(s,' ',s1,' ',n-s-s1);
    end;
end.
0
0 / 0 / 0
Регистрация: 20.10.2011
Сообщений: 7
21.10.2011, 13:40  [ТС] 3
не получается
0
110 / 110 / 72
Регистрация: 13.10.2011
Сообщений: 227
21.10.2011, 15:16 4
Цитата Сообщение от Den06 Посмотреть сообщение
не получается
Что не получается то ?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
    A:array[1..1000010] of longint;
    i,n,s,ma,mi,s1:longint;
begin
 
    readln(n);
    mi:=(1 shl 30);
    ma:=-(1 shl 30);
    for i:=1 to n do begin
        read(a[i]);
        ma:=max(ma,a[i]);
        mi:=min(mi,a[i]);
    end;
    if ma=mi then write(0,' ',n,' ',0)
    else
    begin
        for i:=1 to n do begin
            if a[i]=ma then s:=s+1;
            if a[i]=mi then s1:=s1+1;
        end;
        writeln(s,' ',s1,' ',n-s-s1);
    end;
end.
0
0 / 0 / 0
Регистрация: 14.10.2016
Сообщений: 1
14.10.2016, 14:48 5
У него не получается, так как программа не связна с файлами input.txt и output.txt.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.10.2016, 14:48
Помогаю со студенческими работами здесь

Определить, сколько было заплачено за каждый тип тетрадей, а также общую сумму
Готовясь к новому учебному году ученик купил с1 тетрадей по 20 коп, с2 тетрадей по 60 коп., С3...

Определить, сколько квадратов получится, если каждый раз выбирается самый большой квадрат
Написать программу для решения задачи. Задан прямоугольник со сторонами а и b. Разбиваем его на...

Определить, сколько надо долить жидкости в каждый из стаканов, чтобы суммарно в них оказалось N мл
При решении задачи не используйте строковых или символьных переменных и циклов. Задачу необходимо...

Сколько сдачи с крупной купюры получит хозяйка, покупая сметану?
2. Сколько сдачи с крупной купюры получит хозяйка, покупая сметану? Нужно ввести купюру, цену...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru