program z1;
var a:array [1..20] of integer;
i,s,k:integer;
begin
randomize;
s:=0;
k:=0;
write('Массив: ');
for i:=1 to 20 do
begin
a[i]:=random(90)+10;
if a[i] mod 2 <> 0 then
begin
s:=s+a[i];
k:=k+1
end;
write(a[i],' ')
end;
writeln;
writeln('Среднее арифметическое нечётных элементов: ',s/k:0:1)
end.
Объяснение:
Задаём значение элемента с random
Проверяем значение элемента на нечётность, если условие истинно, то считаем сумму и количество элементов
Выводим значение элемента на экран
Выводим среднее арифметическое (результат деления суммы на количество) нечётных элементов
Животные генерируют и воспринимают ультразвук при специальных рецепторных аппаратов. Ультразвук им ориентироваться в пространстве. Ультразвуковые колебания, создаваемые животными, отражаются от предметов и воспринимаются специализированными органами слуха как преграды на пути.
в первую очередь относятся дельфины, морские свинки,летучие мыши, тропические рыбы и др.
Ультразвуковой датчик определяет расстояние до объекта, измеряя время отображения звуковой волны от объекта. Частота звуковой волны находится в пределах частоты ультразвука, что обеспечивает концентрированное направление звуковой волны, так как звук с высокой частотой рассеивается в окружающей среде меньше
Цифровой гироскопический датчик предназначен для измерения ...и ...вращения робота. Поэтому перед началом каждого измерения всегда необходимо производить обнуление угла при режима
Ультразвуковой датчик широко применяется в самых разных сферах производства, и в некотором роде являются универсальным средством решения многих задач автоматизации технологических процессов. Такие датчики применяются для определения удаленности и местонахождения различных объектов.
Объяснение:
begin
var Прирост := 1 + ReadReal('Введите х в процентах:') / 100;
var (Запас, Отлов, Порог) := ReadReal3('Введите A, B, C в тоннах:');
var Лет := 0;
while Запас >= Порог do
begin
Запас := Запас * Прирост - Отлов;
Inc(Лет);
if Лет > 1000 then
begin
Println('И на тысячу лет хватит!');
Exit
end
end;
Println(Лет - 1)
end.
Введите х в процентах: 12.5Введите A, B, C в тоннах: 300 90 753