Объяснение:
В квадратных скобках указывается порядковый номер числа константы "b", т.е. число 11 стоит на 5 месте относительно других значений в массиве, как это указано в квадратных скобках.
<u>PascalABC.NET 3.4.0, сборка 1677 от 17.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
function CountCond(a:array of real):=a.Where(t->t<a.Average).Count;
begin
var a:=ArrGen(15,i->Cos(5*(i+1))-1/sqrt((i+1)**3+9)); a.Println;
Writeln('Элементов массива, меньших среднего арифметического: ',CountCond(a))
end.
Programm p1;
var i,s:integer;
arr1:array [1..8] of integer;
begin
for i:=1 to 8 do
begin
writeln ('Введите элемент массива ',i);
readln(arr1[i]);
end;
s:=0;
for i:=1 to 8 do
begin<span>
if (arr1[i] mod 2 <> 0) and (arr1[i]>0) then s:=s+arr1[i];</span>
end;
writeln('Сумма нечетных положительных элементов равно: ',s);
<span>end.</span>
Источником слуховой информации может быть воробей, трава (если по ней идти или её будет качать ветер), лужа (если в ней будет плескаться вода), а приемником слуховой информации может быть только воробей, как живое существо, обладающее слухом.