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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.06.2016, 19:19   #1
nike999
 
Регистрация: 26.01.2016
Сообщений: 7
По умолчанию код в C++: есть ли в массиве А [n] числа В и С и определить, какое из чисел встречается в массиве чаще

Помогите написать код.
Проверить есть ли в массиве А [n] числа В и С и определить, какое из чисел встречается в массиве чаще
nike999 вне форума Ответить с цитированием
Старый 06.06.2016, 19:36   #2
nike999
 
Регистрация: 26.01.2016
Сообщений: 7
По умолчанию

этот код только в Pascal, а нужно в C++
Код:
uses
  crt;
 
const
  M = 100;
 
var
  A: array[1..M] of integer;
  i, n, B, C, CountB, CountC: integer;
 
begin
  clrscr;
  repeat
    write('n = ');
    readln(n)
  until (n > 0) and (n <= M);
  write('B = ');
  readln(B);
  repeat
    write('C = ');
    readln(C)
  until C <> B;
  CountB := 0;
  CountC := 0;
  randomize;
  for i := 1 to n do begin
    a[i] := random(M);
    write(' ', a[i]);
    if a[i] = B then inc(CountB);
    if a[i] = C then inc(CountC)
  end;
  writeln;
  if (CountB = 0) and (CountC = 0) then writeln('Числа ', B, ' и ',  C, ' не встречаются')
  else begin
    if (CountB = 0) and (CountC > 0) then begin
      writeln('Число ', B, ' не встречается');
      writeln('Число ', C, ' встречается ', CountC, ' раз');
    end else
    if (CountB > 0) and (CountC = 0) then begin
      writeln('Число ', B, ' встречается ', CountB, ' раз');
      writeln('Число ', C, ' не встречается');
    end else begin
      writeln('Число ', B, ' встречается ', CountB, ' раз');
      writeln('Число ', C, ' встречается ', CountC, ' раз');
      if CountB > CountC then writeln('Число ', B, ' встречается чаще числа ', C)
      else
      if CountB < CountC then writeln('Число ', C, ' встречается чаще числа ', B)
      else writeln('Числа ', B, ' и ', C, ' встречаются одинаковое количество раз')
    end
  end;
  readln
end.
_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 07.06.2016 в 10:34.
nike999 вне форума Ответить с цитированием
Старый 07.06.2016, 09:15   #3
nike999
 
Регистрация: 26.01.2016
Сообщений: 7
По умолчанию

C++

Код:
#include <iostream>
using namespace std;
const int n = 10;
int a[n], b, c, bn, cn;
int main(){
    for (int i = 0; i < n; i++)
        cin >> a[i];
    cin >> b >> c;
    for (int i = 0; i < n; i++){
        if (a[i] == b)
            bn++;
        if (a[i] == c)
            cn++;
    }
    if (!cn &&!bn)
        cout << "chisel net";
    else {
        if (bn > cn)
            cout << "B";
        else if (cn > bn)
            cout << "C";
        else cout << "odinakovo";
    }
    return 0;
}
_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 07.06.2016 в 10:34.
nike999 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ТурбоПаскаль- подпрограммы: Определить в каком массиве отрицательное число встречается раньше darwin1 Паскаль, Turbo Pascal, PascalABC.NET 3 29.04.2014 08:31
Определить, какая буква чаще всего встречается в заданном тексте (Процедуры) sanji2010 Помощь студентам 4 20.04.2014 20:57
Заданы массивыА(5),В(4),С(7).определить, в каком массиве больше чисел,попадающих в интервал от -1 до 1.подсчёт количества чисел по Richik123 Паскаль, Turbo Pascal, PascalABC.NET 2 19.06.2012 12:30
Заданы массивы А(15).В(17),С(10),состоящие из положительных и отрицательных чисел. Определить в каком массиве,больше четных чисел. Richik123 Паскаль, Turbo Pascal, PascalABC.NET 1 19.06.2012 12:24
без массива определить сколько положительных чисел встречается до первого отрицательного числа narco3 Помощь студентам 1 02.10.2011 12:05