1) var ar:array of integer;
<span>n,i:integer;
procedure writing(ar:array of integer; var i,n:integer);
begin;
while i<=n do
begin;
write(ar[i]:4);
i:=i+2;
end;
end;
begin;
readln(n);
writeln('Array:');
SetLength(ar,n+1);
for i:=1 to n do
readln(ar[i]);
i:=1;
writeln('Result:');
writing(ar,i,n);
<span>end.
</span>2) </span>var ar:array[1..10] of integer;
n,i:integer;
sr,otk,otkm:real;
begin;
randomize;
otkm:=-1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
sr:=sr+ar[i];
write(ar[i]:4);
end;
sr:=sr/10;
for i:=1 to 10 do
begin;
otk:=ar[i]-sr;
if otkm<otk then otkm:=otk;
end;
writeln;
writeln('Среднее арифметическое:',sr);
write('Максимальное отклонение:',otkm);
end.
Если чётное, в конце (младший разряд) 0. На 4 - два нуля. На 8 - три. На 32 - пять нулей.
Program z1;
var a:array [1..30] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 30 do
begin
readln a[i];
if a[i] mod 2 =0 then k:=k+1;
end;
wreteln('четных',k);
end.
10111(2) = 2^4+2^2+2^1+2^0 = 16+4+2+1 = 23(10)
10(16) = 16(10)
Средняя скорость = (12+23+2*16)/4 = 67/4 = 16,75(10)
<span>16,75 = 2^4+2^(-1)+2^(-2) = 10000,11(2)
Ответ: 10000,11(2)</span>
5120 * 24 = 122880 бит
122880 / 15 = 8192 бит / с