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.