Const n=30;
Var i, k, k1, k2:Integer ;
A:array [1..10001]of Integer ;
Begin
For i:=1 to N do begin
A[i]:=random(10001);
Write(' A[', i, ']=', A[i]) ;
End;
Writeln;
K1:=10001;k2:=10001;
For i:=1 to N do begin
If (A[i] mod 2=0)and(A[i]<k1)then k1:=A[i];
If (A[i] mod 2=1)and(A[i]<k2)then k2:=A[i] ;
End;
K:=k1+k2;
For i:=1 to N do begin
If A[i]>k then A[i]:=A[i]-k;
End ;
For i:=n downto 1 do begin
Writeln(' A[', i, ']=', A[i]) ;
End;
End.
