В одномерном целочисленном массиве посчитать кол-во единиц. Заменить на 0 все четные элементы.Определить мин. Элемент и его номер.

Извените , вы не знаете как это сделать с Rаndomize?)

ЛС

program dv;var N, i, one, min, mini: integer;ar:array of integer;begin readln(N); setlength(ar, N+1); for i:=1 to N do readln(ar[i]); for i:=1 to N do begin if ar[i]=1 then inc(one); end; for i:=1 to N do begin if ar[i]>0 then ar[i]:=0; end; min:=ar[1]; mini:=1; for i:=2 to N do begin if ar[i]< min then begin min:=ar[i]; mini:=i; end; end;        for i:=1 to N do write(ar[i], ' ');        writeln;        writeln(min, ' ', mini);end.