2

Нужно найти количество элементов равных минимальному. Выводит неправильное количество

var
  s, i: integer;
  A: array [1..5] of integer;
  min := 367131;

begin
  randomize; 
  for i := 1 to 5  do 
    a[i] := Random(1, 5);
  begin
    for i := 1 to 5 do write(a[i], ' ');
    for i := 1 to 5 do
    begin
      if (a[i] < min) and (a[i] >= 0) then  
      begin
        min := a[i]; 
      end;
      if a[i] = min then 
      begin
        s := s + 1; 
      end;
    end;
  end;
  writeln('Минимальный:', min, ' Количество - ', s);
end.
2
  • Двигаясь вдоль массива вы насчитали сколько-то элементов равных текущему минимуму. Вдруг найден элемент ещё меньше. Вы обновили минимум, а счётчик остался прежним. А ведь он считал элементы которые теперь уже не равны минимуму. Commented 20 мая 2021 в 9:39
  • Ещё один вопрос, проще: где начальное значения s? Commented 20 мая 2021 в 9:41

1 ответ 1

1

Необходимо 2 цикла - в одном искать минимум, во втором подсчитывать количество равных минимуму, либо в вашем цикле при нахождении нового минимума обнулять счетчик:

for i := 1 to 5 do
    begin
      if (a[i] < min) and (a[i] >= 0) then  
      begin
        min := a[i];
        s : = 0;
      end;
      if a[i] = min then 
      begin
        s := s + 1; 
      end;
    end;

В вашей реализации подсчитается количество элементов равных или меньше ВСЕХ предыдущих.

И еще. переменную s в начале программы надо инициализировать s:=0;

1
  • 2
    Условие (a[i] >= 0) лишнее, массив заполнен положительными числами. И, пожалуй, лучше сбрасывать счетчик в 1, а перед вторым if добавить else. Commented 20 мая 2021 в 9:53

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.