Найти номер минимального положительного элемента

[ohMy]

не могу понять как найти номер минимального положительного элемента

вот что мне удалось сделать

#include <stdio.h>
#include <ctype.h>
 
int main(int argc, char *argv[])
{
  int n;
  printf("Введите количество элементов >2: \n");
  scanf("%d",&n);
  if(n<3) {printf("Мало элементов!\n");
  return 0;}
  else { printf("Введите массив через пробел: \n");}
  double a[n],s=0;
  for(int i=0;i<n;i++){scanf("%lf",&a[i]);}
  for(int i=0;i<n;i++){s=s+a[i];}
  s=s/n;
  int k=0;
  for (int i=0;i<n;i++)
    if (a[i]<s) k++;
  printf("элементы меньше значения среднего арифметического элемента массива. %u\n",k);
    return 0;
}

[Bugrimov]

Я правильно понимаю, что вы ищите просто индекс минимального положительного элемента в массиве чисел?

[digitalis]

Сдута откуда-то прога для вычисления среднего

вот что мне удалось сделать

- и ни малейшей попытки приспособить к своей задаче. Какого рожна тут делает s? Ну на то, что анонсируется ввод одной строкой через пробел, а вводится поэлементно - забьём.
А вместо

  int k=0;
  for (int i=0;i<n;i++)
    if (a[i]<s) k++;

хорошо бы

  int k=0, mn;
  mn = -1;
  k = -1 ;
  for (int i=0;i<n;i++)
    { 
        if ( a[i] > 0 ) 
          if  ( (k<0)  || ( a[i] < mn)  )  { k = i; mn = a[i] ; }  ; 
     }
  if (k<0)   printf("Нет таких алиментов, отстаньте !") ;
     else  printf(" Нашёлся, гад! Вот его индекс %u\n",k);

Как-то так. Не очень элегантно, но должно работать.
При сдутии исходного примера оставлено несколько лишних { }
Один оператор можно не обрамлять фигурными скобками.

[BDA]

digitalis, можно без mn и двух if:

if (a[i] > 0 && (k < 0 || a[i] < a[k])) k = i;

[digitalis]

Неизвестно, как компилятор сформирует анализ второй скобки: по порядку следования операторов внутри её или же полное вычисление скобки с последующим анализом на true - false, в этом случае в самом начале к=-1, и обращение к a[k] выдаст ошибку. . Не думаю, что это было бы заметно короче моего варианта (или даже вообще не короче), но мой вариант надёжнее и не зависит от реализации компилятора. Проверить варианты - лень, да и Си у меня на компе нет. Вот если бы Delphi
ТСу это уже давно до #&"ы . Так и останется он с 1 сообщением...

[macomics]

Ещё один вариант: первый индекс минимального положительного элемента

int k = -1, n = 10;
for (int i = n - 1; i >= 0; --i) {
    while (i >= 0 && a[i] <= 0) i--;
    if (i >= 0) if (a[i] <= a[(k < 0)?i:k]) k = i;
}

последний индекс минимального положительного элемента

int k = -1, n = 10;
for (int i = 0; i < n; ++i) {
    while (i < n && a[i] <= 0) i++;
    if (i < n) if (a[i] <= a[(k < 0)?i:k]) k = i;
}

Сообщение от digitalis

Проверить варианты - лень, да и Си у меня на компе нет. Вот если бы Delphi

https://www.onlinegdb.com/
http://godbolt.org/
https://rextester.com/

[BDA]

Сообщение от digitalis

Неизвестно, как компилятор сформирует анализ второй скобки

Для каждого языка есть стандарт, а если компилятор ему не следует, то это плохой компилятор. Или отличия должны быть оговорены.

Сообщение от digitalis

Вот если бы Delphi

Кстати, в дельфи по умолчанию вычисления по короткой схеме (https://en.wikipedia.org/wiki/Short-circuit_evaluation), но поведение можно изменить через Project - Options - Compiler - Complete boolean eval или добавить в файл директиву {$B+}.

function f(): Boolean;
begin
  ShowMessage('f');
  result := false;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
 if f and f then
   ShowMessage('TRUE');
end;

Сообщение от digitalis

ТСу это уже давно до

Да это мы между собой уже развлекаемся.

[digitalis]

Познавательно.