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

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

Answer 3

Переделать?

Answer 4

все теперь работает

Answer 5

Обратилась к брату. Поставила min:=2 и все заработало. 

Answer 6

А оформляла-то по-своему, задавала через random,а не randomaze