Робота з редактором формул (п/р) 1. Об'єм кулi визначається формулою: V =-пR3 дея-радіус кулі,

2. Стан (деального газу описується рівнянням Менделеева-Клапейрона рV ==RT де R - універсальна

газова стала, R =8,31-ж

3. Частота коливань математичного маятника (L>>R) визначається за формулою: 0 =

4. Похідною функції у точці називається межа, до якої прямує відношення

якщо AX-0

5. Рух тіла, кинутого вертикально униз без початково швидкості описується системою:

1

де g=9,8 м/с.

Vt = gt

Avt= 2gH

рівняння дозволяє обчислити час падіння тіла з відомої висоти. Для невеликих висот t = √2gH 6. Якщо трикутник АВС заданий стороною і двома прилеглими до нет кутами, то його площа:

SLABC = 2(ctga+ctgB)

, якщо задано вектори сторін, то Sдавс = = (AB^AC).

//Составить программу заполнения массива случайными числами в диапазоне -30 до 30 и определяет количество чётных элементов массива.​

program massiv;

const N=20;

var m:array[1..n] of integer;// поставил 20 элементов массива

   i:byte;

   count:integer;

BEGIN

//заполнение случайными числа в диапазоне [-30;30]

//random(61) выдает случ. значение от 0 до 60, если вычесть -30 с концов этого отрезка получится от -30 до 30

for i:=1 to n do m[i]:=random(61)-30;

//вывод  полученного массива на экран

writeln('Полученный массив');

for i:=1 to n do write(m[i],' ');

writeln;//переход на следующую строку

//сортировка пузырковым методом

for i:=1 to n do

    if (m[i] mod 2=0) then count:=count+1;

writeln('Кол-во четных элементов = ', count);  

END.

Объяснение:

const

   handsfree = false;

   nmax = 10;

   random_min = -50;

   random_max = 50;

var

   a: array[0..nmax] of real;

   i, n: integer;

   sum, x: real;

begin

   {ввод массива}

   n := nmax;

   if handsfree then begin

       for i := 0 to n do

       begin

           a[i] := random(random_max - random_min) + random_min;

           write(a[i], ' ');

       end

   end

   else begin

       for i := 0 to n do

           readln(a[i]);

   end;

   writeln();

   {подсчет суммы}

   write('x = ');

   readln(x);

   sum := a[n];

   for i := n - 1 downto 0 do

       sum := sum * x + a[i];

   writeln('S = ', sqrt(sum));

end.