Ребята, расставлены так, чтобы получилось программа для ввода и вывода

Массив вводится с клавиатуры через пробел 15 элементов
var
a:array[1..15]of integer;
i,j,buf:integer;
begin
    for i:=1 to 15 do
        read(a[i]);
     for i:=1 to 14 do
         for j:=i+1 to 15 do
                if (a[i]<>0)and(a[j]<>0) then
                   if a[i]>a[j]then
                      begin
                             buf:=a[i];
                             a[i]:=a[j];
                             a[j]:=buf;
                      end;
writeln;
   for i:=1 to 15 do
       write(a[i]:4);
end.

35 документов

Объяснение:

Из запроса "Классификация || Кластеризация" мы получили общую сумму документов со словом "Классификация" = 100 + документы со словом "Кластеризация" = 200, итого 300 документов. Из этого можем сделать вывод, что ни в одном документе не встречаются сразу оба слова "классификация" и "кластеризация".

Следовательно, в нашем искомом запросе часть "Классификация & Кластеризация" обращается в ноль.

А что касается части "Классификация & Регрессия?

Из запроса "Регрессия & (Классификация || Кластеризация) видим, что есть 50 документов, удовлетворяющих условию, где есть как документы с Кластеризацией, так и с Классификацией. Но из них 15 документов, в которых встречаются слова Кластеризация и Регрессия вместе. Такие документы нам не подходят, отнимем их от 50 и получим 35.