Втаблице запросы и количество найденных по ним страниц некоторого сегмента сети интернет.

Баскетбол – спортивная командная игра, в которой игроки стараются забросить мяч в корзину. Баскетбол – видовое понятие. Спортивная командная игра – родовое понятие. Игроки стараются забросить мяч в корзину – видовое отличие.

Удав – большая хищная змея тропических стран, обычно обвивающая свою жертву при нападении. Удав – видовое понятие. Большая хищная змея – родовое понятие. Обычно обвивающая свою жертву при нападении – видовое отличие.

Аттестат – официальный документ об окончании учебного заведения, о присвоении звания. Аттестат – видовое понятие. Официальный документ – родовое понятие. Об окончании учебного заведения, о присвоении звания – видовое отличие.

Математика – наука, изучающая величины, количественные отношения и пространственные формы. Математика – видовое понятие. Наука – родовое понятие. Изучающая величины, количественные отношения и пространственные формы – видовое отличие.

Const
  n = 53;

var
  x: array[1..n] of integer;
  i, t, k, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  k := 0; s := 0;
  for i := 1 to n do
  begin
    t := Random(56) - 15;
    x[i] := t;
    Write(t:4);
    if (t < 0) and (t mod 7 = 0) then begin k := k + 1; s := s + t end
  end;
  Writeln;
  Writeln(' Найдено элементов- ', k, ', их сумма равна ', s)
end.

Тестовое решение:
Элементы массива
  -8  21 -13   0  -9  28   9  28  23  -2   7  25  26  40 -11   3   8  -6  -1   4  14 -13  10   4  -6   8  19   4  26  33  38  -9  -4  34  36  11   9  -7  21  31  -4 -14 -12  27   7 -12  23  29 -14  22   5  22  40
 Найдено элементов- 3, их сумма равна -35