<span><em>1. Pascal ABC</em>
const
nn=100;
var
M,C:array[1..nn] of integer;
x,i,n,s,max:integer;
m1,r:real;
begin
Write('x=');
Read(x);
Write('>');
s:=0;
n:=0;
for i:=1 to x do begin
Read(M[i]);
if M[i]>3 then begin
s:=s+M[i];
n:=n+1
end
end;
if n>0 then m1:=s/n
else m1:=0;
max:=M[x];
for i:=x-1 downto x-9 do
if M[i]>max then max:=M[i];
r:=max/m1;
n:=0;
for i:=1 to x do
if M[i]>r then begin
n:=n+1;
C[n]:=M[i];
Write(C[n],' ')
end;
end.</span>
<u>Пример</u>
x=18
>-15 -19 -32 3 2 35 32 12 -44 39 -36 16 31 5 17 21 -43 -20
3 2 35 32 12 39 16 31 5 17 21
<em>2. PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>Если программа не работает, обновите версию! </em>
begin
var M:=ReadArrInteger('>',ReadInteger('x='));
var r:=(M.TakeLast(10).Max)/(M.Where(b->b>3).Average);
var C:=M.Where(b->b>r).ToArray; C.Println
end.
<u>Пример</u>
x= 18
> -15 -19 -32 3 2 35 32 12 -44 39 -36 16 31 5 17 21 -43 -20
3 2 35 32 12 39 16 31 5 17 21
<u>Сравнение явно не в пользу школьного программирования...</u>
Получается 27 ячеек в Excel. А проще берёшь Эксель, выделяешь нужную область и считаешь кол-во ячеек:) на фотке посмотри
1. b)
2. a)
3. a)
6. a)
8. b)
дальше не знаю, сори.(((
I=f*t*i*k
t=I/(f*i*k)
t=250*1024*8/8*8000*2 = 16 c
Что такое дискретизация? Это нежелательный эффект, который приводит к тому, что качество фотографии заметно ухудшается. Данное явление может быть ассоциировано с любым устройством или же процессом, в котором информация подразделяется на несколько отдельных отсчетов. В данном случае дискретизация может рассматриваться в качестве типа интерференционной картины, если есть определенное соотношение между частотой данного явления и определенной периодической структур - Читайте подробнее на FB.ru: <span>http://fb.ru/article/198004/chto-takoe-diskretizatsiya-chastota-diskretizatsii</span>