Вариант a10: в массиве все четные элементы, стоящие левее минимального, заменить на 0. пример: из массива a[5]: 3 2 1 0 4 должен получиться массив 3 0 1 0 4

var a:array[1..5] of integer;
i,min:integer;
begin
for i:=1 to 5 do begin
write('Vvedite a[',i,'] = ');
readln(a[i]);
min:=a[1];
end;
for i:=1 to 5 do if a[i]<min then min:=i;
for i:=1 to 5 do begin
if (a[i] mod 2 = 0) then if i<min then a[i]:=0;
end;
for i:=1 to 5 do write(a[i]);
end.