1.создать массив a из 10 целых чисел, принадлежащих промежутку [-50; 50]. вывести полученный массив на экран, подсчитать сумму положительных элементов и количество отрицательных элементов (e (+0); k(-a)) a[i]> 0 a[i]< 0 2. создать массив a из 10 целых чисел от [0; 25). вывести полученный массив на экран, подсчитать количество k a[i]> k 3. создать массив a из 10 целых чисел от [0; 20). вывести полученный массив на экран, вычислить количество элементов массива, значение которых превышает среднее арифметическое элементов этого массива.

program xxx;   var i, n, max : integer;         s : real;         a : array [1..20] of integer; begin  write ('введите n= ');   readln(n);   for i: =1 to n do      readln (a[i]);   max: = a[1];   for i: =1 to n do      if a[i] > max then max : = a[i];   s: = sqrt(max);   write ('корень из наибольшего эл-та =', s)end.

мальчик с пальчик, карлик нос,буратино,карабас барабас,змей горыныч, царевна лягушка,

х = log₂ n;

х = log₂ 12 бит.

а-1; мама-4; весна-5 - количество букв

а-1; шея-2; мама-2; огурец-3 - количество гласных

а-0; шея-1; мама-2; огурец-3 - количество согласных