var mas:array[0..9] of integer;
i,max,min,k:integer;
arifm:real;
begin
k:=0;
arifm:=0;
Randomize;
for i:=0 to 9 do
mas[i]:=Random(15);
for i:=0 to 9 do
write(mas[i],' ');
{poisk max}
max:=mas[0];
for i:=1 to 9 do
if max<mas[i] then
max:=mas[i];
{poisk min}
min:=mas[0];
for i:=1 to 9 do
if min>mas[i] then
min:=mas[i];
arifm:=(max+min)/2;
writeln('max: ',max);
writeln('min: ',min);
writeln('arifm: ',arifm:0:3);
for i:=0 to 9 do
if mas[i]<arifm then
inc(k);
writeln('k: ',k);
readln;
end.
Const eps=0.00001;
var an,s:real; n:integer;
begin
n:=0;
an:=1/2;
s:=0;
while an>=eps do
begin
s:=s+an;
n:=n+1;
an:=an*1/(2*(2*n+1));
end;
writeln('s = ',s:7:5);
end.
Результат:
s = 0.59229
В первой строчке мы дублируем значение из X[a] дабы не потерять. Теперь можем вписать туда X[b]:
X[a]:=X[b]
В одном байте 8 бит. В слове информация 10 букв. Соответственно 10 байтов.