Найти количество различных членов одномерного массива - Free Pascal

  1. 1. Дан целочисленный массив А, содержащий n элементов (n 20). Найти количество различных членов последовательности.


textual

Код к задаче: «Найти количество различных членов одномерного массива - Free Pascal»

uses fgl, types;
type t = specialize tfpgmap<integer, integer>;
var m : t;
// ...
    m := t.create;
    m.sorted := true;
    m.duplicates := dupignore;
    for i in x do m.add(i);
    writeln('Разных значений: ', m.count);

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.250 из 5



Похожие ответы
  1. Дана прямоугольная доска N × M (N строк и M столбцов). В левом верхнем углу находится шахматный конь, которого необходимо переместить в правый нижний угол доски. При этом конь может ходить только так, как показано на рисунке: Необходимо определить, сколько существует различных маршрутов, ведущих из левого верхнего в правый нижний угол. Входные данные В первой строке входного файла находятся два натуральных числа N и M (1 ≤ N, M ≤ 15). Выходные данные В выходной файл выведите единственное число количество способов добраться конём до правого нижнего угла доски. Примеры входные данные 4 4 выходные данные 2 входные данные 7 15 выходные данные 13309 Пробовал решить так:

  1. Если вкратце то нужно в эту прогу добавить программу которая выведет сколько раз я ввел конкретное слово в строке.

  1. 3)Дан текст из строчных латинских букв, за которым следует точка. Напечатать номер последней буквы к и количество этих букв в тексте

  1. Помогите пожалуйста написать программу { Имеется n бактерий красного цвета. Через 1 такт времени красная бактерия меняется на зелёную, затем через 1 такт времени делится на красную и зелёную. Сколько будет всех бактерий через k тактов времени? Описать и использовать функцию Fib(N), вычисляющую N-й элемент последовательности чисел Фибоначчи. Рекомендуемый интерфейс: 1# Введите число красных бактерий: 10 Введите количество тактов: 9 Общее число бактерий через 9 тактов равно 550 !Внимание! Запрещается использовать циклы, рекурсию и операторы выбора. Оператор присваивания допустим только один. }

  1. Неудача с выполнением кода или я где-то затупил Вообще суть задания таково: Вводиться 14 натуральных чисел. Нужно вывести количество чисел равных 0 , 150, 1000 и 10000. И после этого программа вводить вопрос продолжить нажав на Y или закончить нажав на N.

  1. Пользователь вводит n чисел.Вывести количество введенных отрицательных ,равных 0 , и в диапазоне от 1 до 1024. После этого если вводится символ "J" или "L", случится выход из программы, или -- исполнение программы повторяется.

  1. Помогите пожалуйста с составлением программы. Условие: Найти сумму положительных (SP) и количество отрицательных (PO) элементов массива Z(7) и минимальный элемент массива b(2,3) и вычислить [x][/i]: x(i-тое)=((sqrt(SP))/(PO+a*c))+b(min-в индексе)*Sqr(k)+Z(i-ое); a=2,5e-3; c=175; K=8; Z(i-тое)=-2,3,12,-7,-18,27,-10; B(2,3)=Матрица 0.3 1.5 -6.1 7.2 10.3 0.6 Добавлено через 5 минут

  1. Вводится последовательность символов. Признак конца ввода – точка. Посчитать количество символов не являющихся пробелами.