1. Заполните массив на 25 элементов целыми значениями, лежащими в диапазоне от –34 до 55, и организуйте вывод элементов с индексами от 8 до 14. (вывести на экран и изначальный случайный массив) 2. Создать одномерный массив, содержащий 15 элементов, наполнить его случайными значениями в интервале от 1 до 200.
3. Сформируйте линейный массив вещественных чисел, элементами которого являются расстояния, пройденные телом при свободном падении на землю за 1, 2,…, 10 с. (формула расстояния: h=(gt2)/2, где g=9,8)
4. Заполнить один массив случайными числами, другой - введенными с клавиатуры числами, в ячейки третьего записать суммы соответствующих ячеек первых двух. Вывести содержимое массивов на экран. (Размерность массива – 10 элементов, диапазон значений – [100, 1000]. Все три массива должны иметь одинаковую размерность и тип.)
1. В массиве, состоящем из 10 элементов, содержащем значения принадлежащих диапазону [-9,10], вычислить сумму четных положительных элементов.

Пример:
Массив: -5 0 8 3 -3 6 -1 -2 10 0
Сумма: 24

2. Массив состоит из 15 элементов. Диапазон значений [-5,10]. Найти номер и значение первого положительного элемента массива.

Пример:
Массив: 0 -3 5 -4 -2 4 -5 -2 0 -4 2 5 -4 1 0
Номер и значение первого положительного элемента: 3 5

3. Найти среднее арифметическое положительных элементов массива, состоящем из 20 элементов со значениями в диапазоне [-10,15].

Пример:
Массив: -1 6 -10 -6 -5 7 8 1 -6 13 -10 3 5 12 -9 -7 -1 11 0 14
Среднее арифметическое положительных элементов: 8

4. Найти в массиве те элементы, значение которых меньше среднего арифметического, взятого от всех элементов массива.(количество элементов массива-10, значения в диапазоне [1,50])

Пример:
Массив: 13 23 45 2 9 28 47 30 18 12
Среднее арифм.: 22.70
Элементы, которые меньше ср.арифм.: 13
до 12.03 включительно

      Чтобы ответить на вопрос «сколько информации?», надо определить единицу информации каждого символа. Для алфавита (набора букв, цифр, скобок, знаков препинания и других символов) существует понятие информационного веса символа — количества информации, которое несет один символ алфавита, которое обозначается как i и выражается в битах (bit).
      Количество информации в сообщении, представленного символами, складывается из информационных весов і составляющих его символов, причём информационный объём сообщения I равен произведению количества символов в сообщении k на информационный вес символа алфавита i, что записывается как I = k×i.
     Из сообщения в задании следует, что количество всех неповторяющихся символов алфавита неизвестной планеты равно 8. Для такого алфавита і = 3 bit (так как 2³=8), а следовательно, поскольку в этом сообщении k = 12 символов, то информации оно несёт l = k×i = 12×3 = 36 bit.

Const
  n=8;
var
  aNam, aFam, aDat: array[1..n] of string;
  i: integer;

begin
  aNam[1]:='Олег'; aFam[1]:='Бубенков'; aDat[1]:='1993';
  aNam[2]:='Игорь'; aFam[2]:='Бросов'; aDat[2]:='1991';
  aNam[3]:='Тимур'; aFam[3]:='Наружный'; aDat[3]:='1961';
  aNam[4]:='Анастасия'; aFam[4]:='Боброва'; aDat[4]:='1985';
  aNam[5]:='Михаил'; aFam[5]:='Тапаров'; aDat[5]:='1957';
  aNam[6]:='Евгений'; aFam[6]:='Костарева'; aDat[6]:='1992';
  aNam[7]:='Мария'; aFam[7]:='Никитин'; aDat[7]:='1977';
  aNam[8]:='Ксения'; aFam[8]:='Бабенкова'; aDat[8]:='1978';
  writeln('Лица, чьи фамилии начинаются на букву "Б"');
  for i := 1 to n do
    if aFam[i][1] = 'Б' then
      writeln(aNam[i],' ',aFam[i], ' (', aDat[i], ')')
end.

тестовый прогон:

Лица, чьи фамилии начинаются на букву "Б"
Олег Бубенков (1993)
Игорь Бросов (1991)
Анастасия Боброва (1985)
Ксения Бабенкова (1978)

Возможна также более "современная" запись программы

const
  n = 8;

type
  tP = record
    Nam: string;
    Fam: string;
    Dat: string
  end;

var
  M: array[1..n] of tP;
  i: integer;

begin
  with M[1] do begin Nam := 'Олег'; Fam := 'Бубенков'; Dat := '1993' end;
  with M[2] do begin Nam := 'Игорь'; Fam := 'Бросов'; Dat := '1991' end;
  with M[3] do begin Nam := 'Тимур'; Fam := 'Наружный'; Dat := '1961' end;
  with M[4] do begin Nam := 'Анастасия'; Fam := 'Боброва'; Dat := '1985' end;
  with M[5] do begin Nam := 'Михаил'; Fam := 'Тапаров'; Dat := '1957' end;
  with M[6] do begin Nam := 'Евгений'; Fam := 'Костарева'; Dat := '1992' end;
  with M[7] do begin Nam := 'Мария'; Fam := 'Никитин'; Dat := '1977' end;
  with M[8] do begin Nam := 'Ксения'; Fam := 'Бабенкова'; Dat := '1978' end;
  writeln('Лица, чьи фамилии начинаются на букву "Б"');
  for i := 1 to n do
    With M[i] do begin
      if Fam[1] = 'Б' then
        writeln(Nam, ' ', Fam, ' (', Dat, ')')
    end
end.