PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Написать функцию, определяющую, входит ли точка с координатами, которую задает пользователь, в область https://www.cyberforum.ru/ pascalabc-net/ thread900227.html 1- Написать функцию, определяющую, входит ли точка с координатами , которую задает пользователь, в область ниже прямой y=2x+3 и внутри окружности с	Создание алфавита из строки PascalABC.NET Здравствуйте, Пишу программу, где нужно, чтобы из введенной строки составлялся алфавит и у каждого символа выводилось колличество вхождений в данную строку. Упорно пишет ошибку: Нельзя изменять значение переменной цикла внутри этого цикла. Помогите, пожалуйста, исправить ошибки. Вот мой код: var
PascalABC.NET Конфликт модулей crt и GraphABC https://www.cyberforum.ru/ pascalabc-net/ thread899577.html Всем привет. Пишу небольшую программку с использованием графического модуля. Понадобилось использовать функцию delay(), поэтому также подключил модуль crt. В итоге, программа не запускается. Удаляю модуль crt и всё работает. Можно ли исправить? Если да, то как?	PascalABC.NET Одномерные массивы: поиск элементов с заданными свойствами Требования к программе: 1 Исходный массив должен быть выведен на экран. 2 Все отдельные операции оформлять через подпрограммы. 3 Все преобразования производить с исходным массивом. 4 После каждого преобразования на экране должно быть представлено название преобразования и преобразованный массив или значения указанных величин, или соответствующее сообщение. 3.1 Дан массив целых чисел,... https://www.cyberforum.ru/ pascalabc-net/ thread898930.html
PascalABC.NET Максимальный поток в сети Написать программу, которая реализует поиск максимального потока в сети. Я нашла код, но разобраться с ним не могу. const maxn = 1000; infinity = maxlongint; var n,m,vin,vout,i,u,v,w,head,tail,ans:longint; ne,p,flow:arrayof longint; e,c,f:arrayof longint; q:arrayof longint;	PascalABC.NET Звукозапись В плеере не хватает функции записи. Хочу сделать функцию на подобие программы "Звукозапись", чтобы можно было записывать звук, который воспроизводится на компьютере в данный момент. Нашёл только про воспроизведение, остановку, перемотку и т. д. https://www.cyberforum.ru/ pascalabc-net/ thread898644.html
PascalABC.NET Дано слово. Составить программу, которая вставляет некоторую заданную букву после буквы с заданным номером https://www.cyberforum.ru/ pascalabc-net/ thread898423.html 21) 25. Дано слово. Составить программу, которая вставляет некоторую заданную букву после буквы с заданным номером.	PascalABC.NET Дан символ С. Вывести два символа, стоящие перед ним в кодовой таблице ASCII 20) Дан символ С. Вывести два символа, стоящие перед ним в кодовой таблице ASCII
PascalABC.NET Написать функцию вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей. Параметрами функции должны быть цена тетради, количес Написать функцию вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей. Параметрами функции должны быть цена тетради, количество тетрадей, цена карандаша и количество карандашей. https://www.cyberforum.ru/ pascalabc-net/ thread898210.html	PascalABC.NET Написать процедуру вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей. Параметрами процедуры должны быть цена тетради, ко https://www.cyberforum.ru/ pascalabc-net/ thread898209.html 23) 25. 25. Написать процедуру вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей. Параметрами процедуры должны быть цена тетради, количество тетрадей, цена карандаша, количество карандашей и переменная для результата. Параметрами процедуры должны быть цена тетради, количество тетрадей, цена карандаша, количество карандашей и переменная для результата.
Составление алгоритма PascalABC.NET Требуется составить алгоритм включения строки в двумерный массив. Подскажите пожалуйста. Хэлп!	PascalABC.NET Создать текстовый файл из трех массивов Доброго вечера, помогите, пожалуйста, решить следующую задачку: Создать текстовый файл из трех массивов вещественных чисел (в каждой строке один массив). Считать его и выдать на экран номера отрицательных элементов в каждом массиве. Если таких нет, то тоже выдать сообщение. https://www.cyberforum.ru/ pascalabc-net/ thread897936.html

Kordn

158 / 137 / 106

Регистрация: 18.05.2013

Сообщений: 289

13.06.2013, 20:39

Определить, сколько раз в последовательности встречается максимальное и минимальное - PascalABC.NET - Ответ 4716715

13.06.2013, 20:39. Показов 1993. Ответов 1

Метки (Все метки)

Сообщение было отмечено censored228 как решение

Решение

Pascal

const
  n = 10;
 
var
  a: array[1..n] of integer;
  max, min, maxc, minc: integer;
 
begin
  for var i := 1 to n do
    read(a[i]);
  max := a[1];
  min := a[1];
  for var i := 2 to n do
    if a[i] > max then max := a[i]
    else if a[i] < min then min := a[i];
  for var i := 1 to n do
    if a[i] = max then inc(maxc)
    else if a[i] = min then inc(minc);
  writeln('Максимальное число ', max, ' встречается ', maxc, ' раз');
  writeln('Минимальное число ', min, ' встречается ', minc, ' раз');
end.

Вернуться к обсуждению:
Определить, сколько раз в последовательности встречается максимальное и минимальное PascalABC.NET

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

13.06.2013, 20:39

Готовые ответы и решения:

Определить сколько раз в последовательности встречаются максимальное чисел, а сколько раз минимальное
Добрый вечер всем! Мне надо решить на экзамен задачку, прошу вас помочь с ней :) Задача: Дана...

Определить, сколько раз среди последовательности целых чисел встречается максимальное и минимальное
Даны целые числа s1,s2...sn. Определить: а) Сколько раз среди них встречается максимальное. б)...

Определить сколько раз в последовательности встречается минимальное
Даны целые числа S1,S2,.......Sn. Определить сколько раз среди них встречается минимальное

Определить, сколько раз встречается максимальное число в последовательности
даны целые числа s1,s2,...sn . Определите сколько раз из них встречается максимальное!

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

13.06.2013, 20:39

Помогаю со студенческими работами здесь

Подсчитать, сколько раз встречается в последовательности максимальное по величине число
Дан массив из n целых чисел. Подсчитать, сколько раз встречается в этой последовательности...

Выяснить, сколько раз в последовательности встречается максимальное число. Не используя массивы.
Дана последовательность чисел. Выяснить, сколько раз в ней встречается максимальное число...

Массив: Определить, сколько раз встречается минимальное число?
Дан одномерный массив .Определить сколько раз встречается минимальное число

Наверх