Var a:array[1..10000] of integer;
n,x,i,k:integer;
begin
read(n);
k:=0;
for i:=1 to n do read(a[i]);
read(x);
for i:=1 to n do
if a[i]=x then begin
k:=k+1;
write(i,' ');
end;
if k=0 then write(-1);
end.
Этот может ответ 5 но я так думаю
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите длину в миллиметрах:');
var b:=ReadReal('Введите длину в дюймах:');
var s:=Sign(a-25.4*b);
case s of
-1:Writeln('Второй отрезок длиннее');
0:Writeln('Отрезки равны');
1:Writeln('Первый отрезок длиннее')
end
end.
P(вероятность) синих=10/20=1/2 Тогда N=2 Тогда i (количество информации)=1 (N=2^i)
Pзел= 5/20=1/4 N=4 i=2
Pж=4/20=1/5 N=5 i≈2.32
Pкр=1/20 N=20 i=4.32
Акции ростелекома потому что разница конечной и начальной цены у неё больше чем у всех остальных