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

program massive;var i,j,s,min,n:integer;A:array [1..10000] of integer;beginreadln(n);for i:=1 to n do readln(A[i]);min:=999;for i:=1 to n doif A[i]<min then beginmin:=A[i];s:=i;end;for j:=2 to i doif j mod 2=0 then A[j]:=0;for i:=1 to n dowrite(A[i],' ');end.