Вмассиве хранится информация о результатах 22 спортсменов, участвовавших в соревнованиях по бегу на 100 м. определить результаты спортсменов, занявших первое,второе и третье места.

1) ¬(¬A ^ B) ^ ¬C =( ¬(¬A)∨¬B)∧¬C = (A∨¬B)∧¬C
выражение эквивалентно выражению под цифрой 4)

2) Для того чтобы выражение было истинным надо чтобы истинными были каждое из выражений
(Y < 5) и    ((Y > 1) -> (Y > 5)) 
первое выражение истинно для всех указанных Y.
рассмотрим второе выражение: ((Y > 1) -> (Y > 5)) 
это выражение ложно только если (Y > 1) истинно,  а  (Y > 5) ложно
выражение (Y > 5)  ложно для всех Y, 
а выражение (Y > 1) истинно для Y = 2 , 3 , 4
Таким образом выражение  ((Y > 1) -> (Y > 5)) истинно только для Y= 1
поэтому правильный ответ под номером  1)

Uses
  Crt;

const
  n = 10;

type
  V = array[1..n] of integer;

function Mid(var a: V): double;
var
  i, s: integer;
begin
  s := 0;
  for i := 1 to n do s := s + a[i];
  Mid := s / n
end;

var
  x: V;
  i, j: integer;
  m: double;

begin
  Randomize;
  m := 0;
  for i := 1 to 5 do
  begin
    Writeln('Элементы массива ', i);
    for j := 1 to n do
    begin
      x[i] := Random(100);
      Write(x[i]:3)
    end;
    Writeln;
    m := m + Mid(x)
  end;
  Writeln('Среднее арифметическое пяти массивов равно ', m)
end.

Тестовое решение:
Элементы массива 1
 95 44 54 86 52 39 28 79 29 43
Элементы массива 2
 75 55 26 22 12 93 34 60 34 42
Элементы массива 3
 55 80 50 54 52 46 85 47 11 86
Элементы массива 4
 33 35  5 64 36 66 76 55 24 43
Элементы массива 5
 31 63 66 11 88  4 31 99 28 39
Среднее арифметическое пяти массивов равно 76.6