Var
i, n, k, a: integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(a);
if (a mod 2 = 0) and (i mod 2 = 0) then
inc(k);
end;
writeln(k);
<span>end.</span>
16 бит * 24000 Гц * 4 канала * 1 сек = 1536000 бит
1536000 бит / 8 = 192000 байт
192000 байт / 1024 = 187,5 кбайт.
187.5 кбайт / 1024 = 0,18310546875 мбайт
48 мбайт / 0,18310546875 мбайт = 262,144 секунд
из этих и выбери
Program summa;
var
s: real;
i: integer;
begin
s := 0;
for i := 1 to 10 do
s := (Power(i, 3) / 3) + (Power(i, 5) / 7) + (Power(i, 7) / 11) + (Power(i, 9)) / 15; Writeln('Сумма= ', s);
end.
Javascript:var м=[],ч=prompt();while(ч!=0){м.push(ч);ч=prompt();}alert(Math.min.apply(null,м));
Var
i:integer;
a,b:real;
Begin
for i:= 1 to 5 do Begin
a:=random(50);
write(a,' ');
b:=b+a;
End;
Writeln;
write('Их средн арифм = ',b/5);
End.