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

var a:array[1..5] of integer; i,min:integer;beginfor i:=1 to 5 do beginwrite('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 beginif (a[i] mod 2 = 0) then if i<min then a[i]:=0;end;for i:=1 to 5 do write(a[i]);end.