Question

в одномерном массиве произвольных чисел найти значение и индекс минимального элемента из положительных

Answer 1

var
a:array[1..100000000] of integer;
mini,minz,i,n:integer;
begin
Write('Введите размер массива - ');
readln(n);
write('Введите элементы массива - ');
for i:=1 to n do
 read(a[i]);
i:=1;
while
 minz=0 do
 begin
  i:=i+1;
  if a[i]>0 then
   begin
    mini:=i;
    minz:=a[i];
   end;
  end;
for i:=1 to n do
 begin
  if (a[i]<minz) and (a[i]>0) then
   begin
    minz:=a[i];
    mini:=i;
   end;
 end;
writeln('Значение минимального элемента массива - ',minz,'. Индекс - ',mini);
end.

Answer 2

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

Вот пример кода на языке Python:

pythonCopy code
# заданный массив
arr = [3, -1, 5, -2, 8, 0]

# инициализация переменных
min_pos = None  # индекс минимального положительного элемента
min_pos_val = float('inf')  # значение минимального положительного элемента, изначально бесконечность

# проход по элементам массива
for i, val in enumerate(arr):
    if val > 0 and val < min_pos_val:
        min_pos = i
        min_pos_val = val

# вывод результата
if min_pos is not None:
    print(f"Минимальный положительный элемент: {min_pos_val}, индекс: {min_pos}")
else:
    print("В массиве нет положительных элементов.")

В этом примере мы проходим по элементам массива с помощью функции enumerate, которая возвращает пару (индекс, значение) для каждого элемента. Если значение положительное и меньше текущего минимального, то обновляем минимальное значение и индекс. Если в массиве нет положительных элементов, то выводим сообщение об этом.