Question

Вмассиве a(n) подсчитать количество минимальных элементов. в турбо паскале решите

Answer 1

Var
  i: Integer;       //  рабочая переменная для for
  k: Integer;       //  количество минимальных элементов
  n: Integer;       //  размер массива  m : array [1..10] of Integer; // Собственно сам массив  из "n" элементов
  i_min : Integer;  // Индекс минимального элемента в массиве
begin
  n:=10;  k := 0;  i_min := 1;
  for i := 1 to n  do
  begin
    m[i] := Random(10);  // 10 - Число от балды
    if (m[i]<m[i_min]) then
    begin
      k := 1;
      i_min := i
    end
    else
      if (m[i]=m[i_min]) then
        inc(k);
  end;

  // В переменной "k" - находится количество минимальных элементов
end;