Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.02.2023, 23:45   #1
IMarkTop
Новичок
Джуниор
 
Регистрация: 17.02.2023
Сообщений: 4
По умолчанию Нужна помощь с задачей

Дан одномерный массив А, состоящий из N элементов. Сколько значений
элементов встречается в массиве по 3 раза? Написать на PascalABC.Net
IMarkTop вне форума Ответить с цитированием
Старый 18.02.2023, 00:09   #2
macomics
Участник клуба
 
Регистрация: 17.04.2022
Сообщений: 1,833
По умолчанию

Код:
const N = 5000;
var count, c, i, j: Integer;
A: array [0 .. N - 1] of Integer;
begin
  count := 0; // Считаем количество элементов в массиве встречающиеся 3 раза
  for i := 0 to N - 1 do begin
    c := 0; // Считаем количество элементов A[i] в массиве
    for j := 0 to N - 1 do
      if A[i] = A[j] then inc(c);
    if c = 3 then inc(count); // Насчитали 3 элемента - увеличили счетчик count
  end;
  count := count div 3;
end;
т.к. каждый элемент встречается в массиве 3 раза, то цикл подсчета на каждый уникальный элемент в массиве, встречающийся 3 раза, сработает 3 раза (увеличит счетчик count на 3). Поэтому в конце счетчик надо просто разделить на 3.
macomics вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь с задачей! alnik Паскаль, Turbo Pascal, PascalABC.NET 1 13.01.2018 16:34
нужна помощь с задачей Nakaa Помощь студентам 4 30.10.2017 03:44
Нужна помощь с задачей на С++ jinos Помощь студентам 3 25.09.2017 08:41
Нужна помощь с задачей в СИ (обычном) igoriok999 Общие вопросы C/C++ 1 07.06.2014 17:45