Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
3 / 3 / 0
Регистрация: 20.07.2017
Сообщений: 12

Нужно указать на ошибки в коде

30.06.2019, 20:48. Показов 1076. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задача:
Пашмак решил подарить Пармиде пару цветов из своего сада. В саду растет n цветов, красота i-го из них равна bi. Пармида — девушка необычная, она необязательно хочет получить два самых красивых цветка. Она хочет получить такие два цветка, разница красот которых максимально возможная!

Ваша задача — написать программу, которая посчитает два значения:

Максимальную разность красот двух цветов из сада Пашмака.
Сколько существует способов выбрать два цветка из сада, чтобы разность их красот была максимально возможной. Два способа считаются различными тогда и только тогда, когда хотя бы один цветок выбран в одном из них и не выбран во втором.
Входные данные
В первой строке записано целое число n (2 ≤ n ≤ 2·105). В следующей строке записано n целых чисел через пробел b1, b2, ..., bn (1 ≤ bi ≤ 109).

Выходные данные
В единственной строке выведите два целых числа — максимальную разность красот и количество способов ее получить.

Я накидал код, который не работает:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program Max_element_massiva ;
Var i,maxkol,minkol,min, n, max : longint;
    A : array [1..200000] of longint;
Begin
maxkol:=0;
minkol:=0;
     Readln(n);
     For i := 1 to n do
          read(A[i]);
     max := A[1];
     min := A[1];
     For i := 2 to N do begin
          if A[i]>max then max := A[i];
          if A[i]<min then min := A[i];
     end;
     For i := 1 to N do begin
          if A[i]=max then maxkol := maxkol+1; 
          if A[i]=min then minkol := minkol+1;
     end;
     write(max-min,' ', maxkol*minkol);
End.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
30.06.2019, 20:48
Ответы с готовыми решениями:

кто может указать ошибки в коде,не могу разобраться?
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &lt;Windows.h&gt; #include &lt;math.h&gt; #include &lt;locale.h&gt; #include &lt;stdlib.h&gt; #include...

Пожалуйста, нужно найти ошибки в этом коде, нужно сделать в Codeblocks!
Задание было такое:Написать программу для работы с одномерным массивом размера N (0 &lt; N &lt; 100). В начале работы программы...

Нужно исправить 2 ошибки в коде
собственно, САБЖ. нужно исправить 2 ошибки в коде, чтобы его можна было скомпилить и сделать из него ехе-шник. код немалый, тому залил...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
30.06.2019, 20:48
Помогаю со студенческими работами здесь

Нужно исправить ошибки в коде
Код для разработки приложения &quot;Кинозал&quot;, представляет собой систему бронирования билетов, выполняет 2 функции: -регистрация брони ...

Нужно найти ошибки в коде
print(' '.join( if h != 9])) пайчарм пишет: TypeError: 'int' object is not subscriptable (нужен код в одну строчку)

Нужно найти ошибки в коде
Мужики подскажите где тут ошибки?! лишних &lt;&gt; нет ?! &lt;a id=&quot;&lt;? echo $arItemIDs; ?&gt;&quot; href=&quot;&lt;? echo $arItem; ?&gt;&quot;...

Нужно найти ошибки в коде
Вот условие задачи:Дано целое четырехзначное число. Верно ли, что все четыре цифры числа различны. Проблема в том что какие числа не...

Нужно исправить ошибки в коде
Нужна помощь в написании скрипта using UnityEngine; using System; using System.Collections; using UnityEngine.UI; namespace...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru