P=-61
///////////////////////////////////////////////////////////////
Ответ:
var A:array[1..10] of integer;
i,sum:integer;
begin
writeln('Введите значения массива');
for i:=1 to 10 do
readln(A[i]);
for i:=1 to 10 do
if A[i] mod 2=0 then sum:=sum+a[i];
write('ответ= ',sum);
end.
Вместо integer напиши real в var и будет тебе счастье
1) 00, 01, 10, 11 - 4 последовательности
2) 000, 001, 010, 100, 011, 110, 101, 111 - 8 последовательностей
3) 16 последовательностей
4) 32 последовательности