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

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]0) then
begin
minz:=a[i];
mini:=i;
end;
end;
writeln('Значение минимального элемента массива - ',minz,'. Индекс - ',mini);
end.