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.
Ответ:
Больше 9 дней
Объяснение:
Больше 9, так как если чебурашка ошибается, и дом строить не больше 9 дней, то он не может строиться больше 10.
Var ar:array[1..10] of integer;
k,i,m:integer;
begin;
randomize;
k:=1;writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(0,15);
if odd(i)=false then k:=k*ar[i];
write(ar[i]:4);
end;
writeln;
writeln('Result:',k);
if odd(k) then writeln('Yes') else writeln('No');
end.
<span>
//Мала вероятность того, что вернёт Yes, поэтому прикрутил Result
Вывод с 300-400 запуска:
Array:
9 15 8 15 5 3 0 15 3 9
Result:91125
Yes<span>
</span></span>
<span>Клод Шеннон, был такой Американский инженер и математик, его работы являются синтезом математических идей с конкретным анализом чрезвычайно сложных проблем их технической реализации
Он является основателем теории информации, нашедшей применение в современных высокотехнологических системах связи. Шеннон внес огромный вклад в теорию вероятностных схем, теорию автоматов и теорию систем управления — области наук, входящие в понятие «кибернетика». В 1948 году предложил использовать слово «бит» для обозначения наименьшей единицы информации (в статье «Математическая теория связи»).</span><span />