@echo off
setlocal enabledelayedexpansion
cls
set /a index = 0

:loop
if "%1"=="" goto completed
set /a index=%index%+1
set sir[%index%]=%1
shift
goto loop
:completed
set /a len=%index%

:meniu
echo:
echo Tastati:
echo s pentru Afisare sir
echo a pentru Suma elementelor pozitive
echo b pentru Produsul elementelor pare
echo c pentru Suma elementelor negative aflate pe pozitii impare
echo d pentru Media aritmetica a elem  5 = 2
echo e pentru Numarul elem ^<= 6
echo f pentru Verificare elem de pe poz p mod 4 = 0
echo q pentru Iesire
echo:
set /p ales=Optiunea : 
echo:

if %ales%==s goto aless
if %ales%==a goto alesa
if %ales%==b goto alesb
if %ales%==c goto alesc
if %ales%==d goto alesd
if %ales%==e goto alese
if %ales%==f goto alesf
if %ales%==q goto quit
echo Optiune invalida!
goto meniu

:aless
echo Sirul cu %len% elemente este:
for /l %%n in (1,1,%len%) do (echo sir[%%n]=!sir[%%n]!)
goto meniu

:alesa
set /a suma=0
set "sumch="
set /a cont=0
for /l %%n in (1,1,%len%) do (
	set /a elem=!sir[%%n]!
	if !elem! gtr 0 (
		set /a suma=!suma!+!elem!
		:: set /a suma+=!elem!					
		if !cont! equ 0 (set sumch=!elem!) else (set sumch=!sumch!+!elem!)
		:: set /a cont+=1
		set /a cont=!cont!+1
	)
)
if %cont% neq 0 (
	echo Suma elementelor pozitive este: %suma%
	echo %sumch% = %suma%
) else (
	echo Nu sunt elemente in sir care sa respecte criteriile.
)

goto meniu

:alesb
set /a prod=1
set "prodch="
set /a cont=0
for /l %%n in (1,1,%len%) do (
	set /a elem=!sir[%%n]!
	set /a rest=!elem!%%2 
	if !rest! equ 0 (
		set /a prod=!prod!*!elem!
		:: set /a prod*=!elem!					
		if !cont! equ 0 (set prodch=!elem!) else (set prodch=!prodch!*!elem!)
		:: set /a cont+=1
		set /a cont=!cont!+1
	)
)
if %cont% neq 0 (
	echo Produsul elementelor pare este: %prod%
	echo %prodch% = %prod%
) else (
	echo Nu sunt elemente in sir care sa respecte criteriile.
)
goto meniu

:alesc
set /a suma=0
set "sumch="
set /a cont=0
for /l %%n in (1,1,%len%) do (
	set /a elem=!sir[%%n]!
	set /a rest=%%n%%2
	if !elem! lss 0 (
		if !rest! neq 0 (
			set /a suma=!suma!+!elem!
			if !cont! equ 0 (set sumch=!elem!~%%n~) else (set sumch=!sumch!+!elem!~%%n~)
			set /a cont=!cont!+1
		)
	)
)
if %cont% neq 0 (
	echo Suma elementelor negative aflate pe pozitii impare este: %suma%
	echo %sumch% = %suma%
) else (
	echo Nu sunt elemente in sir care sa respecte criteriile.
)
goto meniu

:alesd
set /a sum=0
set "sumch="
set /a cont=0
for /l %%n in (1,1,%len%) do (
	set /a elem=!sir[%%n]!
	set /a rest=!elem!%%5
	if !rest! equ 2 (
		set /a sum=!sum!+!elem!	
		if !cont! equ 0 (set sumch=!elem!) else (set sumch=!sumch!+!elem!)
		set /a cont=!cont!+1
	)
)
if %cont% neq 0 (
	set /a rez = %sum%/%cont%
	echo Media aritmetica a elementelor care mod 5=2 este : !rez!
	echo %sumch% / %cont% = %sum% / %cont% = !rez!
) else (
	echo Nu sunt elemente in sir care sa respecte criteriile.
)
goto meniu

:alese
set "sumch="
set /a cont=0
for /l %%n in (1,1,%len%) do (
	set /a elem=!sir[%%n]!
	if !elem! lss 6 (				
		if !cont! equ 0 (set sumch=!elem!) else (set sumch=!sumch!,!elem!)
		:: set /a cont+=1
		set /a cont=!cont!+1
	)
)
if %cont% neq 0 (
	echo Numarul elementelor mai mici decat 6 este: %cont%
	echo %sumch% 
) else (
	echo Nu sunt elemente in sir care sa respecte criteriile.
)
goto meniu

:alesf
echo Sirul are %len% elemente pe pozitiile 1, ..., %len%
set /p poz=Pozitia : 
if %poz% geq 1 (
	if %poz% leq %len% (
		set /a elem=!sir[%poz%]!
		set /a rest=!elem!%%4
		if  !rest! equ 0 (
			echo !elem! are restul impartirii la 4 egal cu 0.
		) else (
			echo !elem! NU are restul impartirii la 4 egal cu 0.
		)
		goto meniu
	)
)
echo Pozitia nu este valida.
goto meniu

:quit
echo Gata.

endlocal