USES CRT; var liczba,parzyste:array[1..10] of integer; l,ile_parzystych:byte; suma:integer; begin clrScr; WriteLN('Podaj 10 liczb :'); ile_parzystych:=0; for l:=1 to 10 do begin readLN(liczba[l]); if liczba[l] mod 2 = 0 then begin inc(ile_parzystych); parzyste[ile_parzystych]:=liczba[l]; end; end; ClrScr; WriteLn('Parzyste liczby : '); for l:=1 to ile_parzystych do begin write(parzyste[l]); if l<> ile_parzystych then write(', '); suma:=suma+parzyste[l]; end; WriteLn; WriteLn('srednia parzystych : ',suma/ile_parzystych:8:5); readLN; end.