Олимпиадная задача по программированию. PascalABC.NET

@sadfasfsad · Регистрация: 05.06.2019

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

Помогите рассчитать, кто сколько купюр получит.

Формат ввода
В первой строке содержится число N (1 ≤ N ≤ 1000000) – количество купюр.

Во второй строке записано N натуральных чисел, не превосходящих 1000000000 – номиналы купюр.

Формат вывода
Выведите через пробел три числа: сколько купюр достанется Васе, Пете и Коле соответственно.

Пример 1
Ввод
4
1 2 3 4
Вывод
1 1 2
Пример 2
Ввод
5
2 2 4 4 4
Вывод
3 2 0

Я написал такой код:

Pascal

program delehka;
var
  i, n, s, ma, mi, sl, a: longint;
begin
  readln(n); 
  mi := 1000000001; 
  ma := -1;
  for i := 0 to n - 1 do
  begin
    read(a); 
    if ma < a Then
      begin
        ma := a;
        s := 0;
      end;      
    if mi > a Then
      begin
        mi := a;
        sl := 0;
      end;    
    if a = ma then 
      inc(s);
    if a = mi then 
      inc(sl);
  end;
  if ma = mi then 
    write(0, ' ', n, ' ', 0)
  else   
    writeln(s, ' ', sl, ' ', n - s - sl);  
end.

70/100 баллов. Скажите, пожалуйста, что не так

@Puporev · 27.11.2019, 18:48

Я бы создал массив a[1..n]. Отсортировал его по убыванию. Затем посчитал равные первому с начала и равные последнему с конца.

@sadfasfsad · 27.11.2019, 18:50 **[ТС]**

проблема в том, что у меня 6 неправильных ответов, из них 2 не прошли по времени, остальное неправильные ответы, а почему неправильно никак не могу понять

@eaa · 27.11.2019, 18:55

sadfasfsad, когда сдаете выберете PascalABC.NET? попробуйте выбрать Free Pascal

@sadfasfsad · 27.11.2019, 19:00 **[ТС]**

Теперь 75/100 баллов)) Пропали все time limit. Большое спасибо. А что в алгоритме неправильного? Почему 5 Wrong Answer?

@eaa · 27.11.2019, 19:01

4
2 2 2 2
Ответ?

@sadfasfsad · 27.11.2019, 19:03 **[ТС]**

0 4 0. А получается все деньги забрать должен первый?

@eaa · 27.11.2019, 19:05

Вася же первый забирает? Так в условии написано.

@sadfasfsad · 27.11.2019, 19:06 **[ТС]**

Да, Вася забирает первый

@eaa · 27.11.2019, 19:07

int64, еще вместо longint нужно

@sadfasfsad · 27.11.2019, 19:38 **[ТС]**

Большое спасибо!!! 100/100 баллов

Pascal

program delehka;
 
var
  i, n, s, ma, mi, sl, a: int64;
 
begin
  readln(n); 
  mi := 1000000001; 
  ma := -1;
  for i := 1 to n do
  begin
    read(a);
    if ma < a Then
    begin
      ma := a;
      s := 1;
    end
    else
    if a = ma then    
      inc(s);    
    
    if mi > a Then
    begin
      mi := a;
      sl := 1;
    end
    else
    if a = mi then 
      inc(sl);   
    
  end;
  if ma = mi then 
    write(n, ' 0 0')
  else   
    writeln(s, ' ', sl, ' ', n - s - sl);  
end.

@Puporev Почетный модератор 64087 / 47496 / 32734 Регистрация: 18.05.2008 Сообщений: 115,182
	27.11.2019, 18:48	2
	Я бы создал массив a[1..n]. Отсортировал его по убыванию. Затем посчитал равные первому с начала и равные последнему с конца. 1

@sadfasfsad 2 / 2 / 0 Регистрация: 05.06.2019 Сообщений: 82
	27.11.2019, 18:50 [ТС]	3
	проблема в том, что у меня 6 неправильных ответов, из них 2 не прошли по времени, остальное неправильные ответы, а почему неправильно никак не могу понять 0

@eaa Status 418 2180 / 1272 / 394 Регистрация: 26.11.2017 Сообщений: 3,547 Записей в блоге: 1
	27.11.2019, 18:55	4
	sadfasfsad, когда сдаете выберете PascalABC.NET? попробуйте выбрать Free Pascal 1

@sadfasfsad 2 / 2 / 0 Регистрация: 05.06.2019 Сообщений: 82
	27.11.2019, 19:00 [ТС]	5
	Теперь 75/100 баллов)) Пропали все time limit. Большое спасибо. А что в алгоритме неправильного? Почему 5 Wrong Answer? 0

@eaa Status 418 2180 / 1272 / 394 Регистрация: 26.11.2017 Сообщений: 3,547 Записей в блоге: 1
	27.11.2019, 19:01	6
	Сообщение было отмечено sadfasfsad как решение Решение 4 2 2 2 2 Ответ? 2

@sadfasfsad 2 / 2 / 0 Регистрация: 05.06.2019 Сообщений: 82
	27.11.2019, 19:03 [ТС]	7
	0 4 0. А получается все деньги забрать должен первый? 0

@eaa Status 418 2180 / 1272 / 394 Регистрация: 26.11.2017 Сообщений: 3,547 Записей в блоге: 1
	27.11.2019, 19:05	8
	Вася же первый забирает? Так в условии написано. 0

@sadfasfsad 2 / 2 / 0 Регистрация: 05.06.2019 Сообщений: 82
	27.11.2019, 19:06 [ТС]	9
	Да, Вася забирает первый 0

@eaa Status 418 2180 / 1272 / 394 Регистрация: 26.11.2017 Сообщений: 3,547 Записей в блоге: 1
	27.11.2019, 19:07	10
	int64, еще вместо longint нужно 2

Опции темы

Олимпиадная задача по программированию. PascalABC.NET

Решение