)1) написать программу , заполняющую массив из 10 элементов числами от 10 до 1. 2)написать программу подсчитывающую количество нечетных элементов в массиве случайных чисел. 3) программа заполняет массив случайными числами от -10 до 10 и находит сумму отрицательных и положительных элементов.

1const      n = 10;   var    a : array [1..n] of integer;     i : integer;           begin    randomize;   // выбери нужный for     for i : = 1 to n do      begin       a[i] : = i;         writeln (a[i]);       end;     //a[1]=1,a[2]==10          //рандомом    for i : = 1 to n do      begin      a[i] : = 1 + random (9);         writeln (a[i]);       end;   end. 2   const      n = 25; //кол-во элементов   var  a : array [1..n] of integer;   i,k : integer;   begin   randomize;     for i : = 1 to n do     a[i] : = -20+random(40);       k : = 0;     for i : = 1 to n do    if a[i] mod 2 =1 then     k : = k +1;     writeln (k);       end.3const      n = 10;   var    a : array [1..n] of integer;     i,s1,s2 : integer;         begin    randomize;     for i : = 1 to n do      begin        a[i] : = -10+random(21);       writeln (a[i]);       end;           s1 : = 0; s2 : = 0;     for i : = 1 to n do    begin      if a[i] > 0 then      s1 : = s1 +a[i];       if a[i] < 0 then      s2 : = s2 +a[i];     end;       writeln ('сумма положительных=',s1);       writeln ('сумма отрицательных=',s2);     end.

Var   a, b, c, d: integer;   x1, x2, x: real; begin   writeln('введите a,b,c');   read(a, b, c);   d : = sqr(b) - 4 * a * c;   if d > 0 then   begin       x1 : = (-b - sqrt(d)) / (2 * a);       x2 : = (-b + sqrt(d)) / (2 * a);       writeln('корни уравнения: x1=', x1, ' x2=', x2);       { потом убрать отсюда }       writeln('*** делаем проверку ***');       writeln(a, 'x(', x1: 0: 5, ')^2+', b, 'x(', x1: 0: 5, ')+', c, '=', a * sqr(x1) + b * x1 + c: 0: 5);       writeln(a, 'x(', x2: 0: 5, ')^2+', b, 'x(', x2: 0: 5, ')+', c, '=', a * sqr(x2) + b * x2 + c: 0: 5)       { и досюда }   end   else   if d < 0 then       write('нет корней')   else   begin       x : = -b / (2 * a);       writeln('корень уравнения: x=', x);   end; end. тестовое решение: введите a,b,c 2 -2 -40 корни уравнения: x1=-4 x2=5 *** делаем проверку *** 2x(-4.00000)^2+-2x(-4.00000)+-40=0.00000 2x(5.00000)^2+-2x(5.00000)+-40=0.00000

При алфавитном подходе выбираем мощность алфавита - пусть она будет стандартной для компьютера - 256 символов, тогда для  кодировки символа используется 1 байт. пусть встреча должна состояться в некоторый час (число минут нулевое).  самая короткая запись сообщения о дате и времени встречи - 3.10 15 и в нем 7  символов, включая пробел. тогда мы можем говорить, что сообщение несет 7  байт информации. или 7х8=56 бит. при содержательном подходе мы выбираем один из 365 дней и один из 24 часов. итого - 1 из 365х24=8760 вариантов. тогда количество информации находится по формуле бит. сравнение показывает, что содержательный подход дает оценки всегда ниже (может даже в десятки раз ниже), чем алфавитный.