Задача на паскале

[RDK.123]

Array28. Дан массив А размера N. Найти минимальный элемент из его элементов с четными номерами: А2, А4, A6, ...

Program Array28;
uses CRT;
var
arr:array[1..100]of integer;
n,i:integer;
min:integer;
begin
Randomize;
Write('n=');
Readln(n);
for i:=1 to n do
 begin
  arr[i]:=random(20)-10;
  Write(arr[i],'  ');
 end;
Begin
for i:=1 to n do
arr[i]:=random(n);
min:=arr[2];
for i:=4 to n do
begin
	if(i mod 2=0)and(min>arr[i])then
		min:=arr[i];
end;
write('Min= ',min);
end;
end.

не находит минимальный элемент, помогите найти ошибку и исправить её

[Stilet]

for i:=1 to n do
begin
arr[i]:=random(20)-10;
Write(arr[i],' ');
end;
Begin
for i:=1 to n do
arr[i]:=random(n);

Не уловил смысла сей части кода...
Зачем второй раз массив перенаполняешь?

[RDK.123]

препод хотел что бы в CRT нужно было вводить число n, без этого не получалось

[Stilet]

Так ты нигде не описал ввод масисва с клавы.
А вторым циклом себе только все испортил. Убери его.

[RDK.123]

можешь помочь? я в паскале плохо разбираюсь)

[Stilet]

Я же тебе сказал что делать.
Убери второй цикл с arr[i]:=random(n); совсем.

[bonjovi]

var a:array [1..100] of integer;
i,n,min:integer;

Begin
     Readln(n);
     For i:= 1 to n do Begin
     a[i]:= random(10);
     Writeln(a[i]);
     end;
     
     min:= a[2];
     For i:= 1 to n do
     if i mod 2 = 0 then
     If a[i]<min then min:= a[i];
     writeln('____________',min);
     end.

Ну вот как-то так!