5. В масиві Аз 5 цілих елементів знайдіть добуток від'ємних елементів (d)
кількість парних елементів (k)
суму тих елементів, що стоять на парних місцях (s)
6. В масиві Аз 5 цілих елементів
Замініть елементи, що дорівнюють О на 10
Перевірте чи зустрічається елемент, що дорівнює 1 і виведіть його
номер
7. Відсортуйте масив Аз 5 цілих елементів
8. Створіть програму, в якій площа квадрата ѕ із стороною а знаходиться
в підпрограмі (процедурі або функції) і викликається 2 рази для
різних значень.

1)V=2Int,где 2-стерео,I - разрядность карты, n - частота дискретизации, t - время звучания.Значит V=2*16*10000*20=6400000 бит,делим на 8,затем на 1024 - 781,25 Кбайт

2)V=Int,I - разрядность карты, n - частота дискретизации, t - время звучания.Значит 22050 *10 *1 = 220500 байт(8бит - 1байт,а 22,05 из кГц переводим в Гц путем умножения на 1000)

3)V=Int,I - разрядность карты, n - частота дискретизации, t - время звучания.t = V/(n*I).Значит t = 5505024/( 22050 *2) = 124,8 сек(Мб переводим в байты,а кГц в Гц)

Объяснение:

function Max(a, b, c: integer): integer;

var

 m: integer;

begin

 if a > b then

   m := a

 else

   m := b;

 if c > m then

   m := c;

 Max := m;

end;

function Min(a, b, c: integer): integer;

var

 m: integer;

begin

 if a < b then

   m := a

 else

   m := b;

 if c < m then

   m := c;

 Min := m;

end;

procedure Swap(var a, b: integer);

var

 t: integer;

begin

 t := a;

 a := b;

 b := t;

end;

var

 a, b, c, t: integer;

begin

 Write('Введи через пробел три числа: ');

 Read(a, b, c);

 Writeln('Max = ', Max(a, b, c), ', min = ', Min(a, b, c));

 if b > a then

   Swap(a, b);

 if c > b then

 begin

   Swap(b, c);

   if b > a then

     Swap(a, b);

 end;

 Writeln(a, ' ', b, ' ', c);

end.