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

Ответы 6

  • ведь он генерирует от 0 до N
    • Автор:

      joe85
    • 6 лет назад
    • 0
  • Переделать?
  • все теперь работает
    • Автор:

      henderson
    • 6 лет назад
    • 0
  • Обратилась к брату. Поставила min:=2 и все заработало. 
  • А оформляла-то по-своему, задавала через random,а не randomaze
    • Автор:

      blake
    • 6 лет назад
    • 0
  • vara:array[1..100000000] of integer;mini,minz,i,n:integer;beginWrite('Введите размер массива - ');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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years