var
x, y: real;
k: integer;
begin
k := 0;
Read(x, y);
while (x <> 0) or (y <> 0) do
begin
if (x < 0) and (y > 0) then
k := k + 1;
Read(x, y)
end;
Writeln(k);
end.
Могу только на паскале
program poisk;
const
N=12;
var
C:array [1..N] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to N do
read(C[i]);
for i:=1 to N do
if i mod 2 <> 0 then
k:=k+1;
writeln('Кол-во нечетных чисел='k)
end.
100 в десятичной = 1100100 в двоичной.
Ответ: 3 единицы
Uses crt;
var a,b: Integer;
Begin
Write('Введите целое число: ');
Read a;
While a>0 do
Begin
b:=b+a mod 10;
a:=a div 10;
End;
Writeln('Сумма цифр введённого числа равна ', b);
End.
А массив тут и не нужен. Накапливаем сумму и подсчитываем количество введенных чисел. Их этих двух величин получаем среднее.
var
m,n,s:integer;
begin
s:=0; n:=0;
repeat
Read(m);
if m<>0 then begin s:=s+m; n:=n+1 end
until m=0;
if n>0 then Writeln(s/n)
else Writeln('Ничего не введено')
end.