В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для логической операции «И» — символ «&». В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента сети. Считается, что все запросы выполнялись практически одновременно, так что набор страниц, содержащих все искомые слова, не изменялся за время выполнения запросов.

Запрос Найдено страниц (в тысячах)
День | Чудесный 95
День 55
Чудесный 48
Какое количество страниц будет найдено по запросу День & Чудесный?

Пишите язык, который вам нужен. Пишу на наиболее вероятном: Pascal.
program massiv;

uses crt;

var A:array[1..10] of integer; s: real; i,k, p: integer;

begin

clrscr;

randomize;

writeln ('задан массив:');

for i:=1 to 10 do

begin

a[i]:=random(100); {задание массива}

s:=s+a[i];{ считаем сразу сумму элементов}

write (a[i]:4); {вывод на экран}

end;

s:=s/10;

for i:=1 to 10 do

if a[i]>s then p:=p+1;

if p mod  2= 0 then {проверка на четность}

                          for i:=1 to 10 do a[i]:=a[i]+i

                             else 

                                        begin

                                        k:=a[5];

                                        a[5]:=a[6];

                                        a[6]:=k; {обмен значений а5 и а6. если считать их центральными элементами, через третью переменную}

                                        end;

writeln; {дабы у вас ничего не слиплось}

for i:=1 to 10 do write (a[i]:4); {вывод полученного массива на экран} 

end.

Пишите язык, который вам нужен. Пишу на наиболее вероятном: Pascal.
program massiv;

uses crt;

var A:array[1..10] of integer; s: real; i,k, p: integer;

begin

clrscr;

randomize;

writeln ('задан массив:');

for i:=1 to 10 do

begin

a[i]:=random(100); {задание массива}

s:=s+a[i];{ считаем сразу сумму элементов}

write (a[i]:4); {вывод на экран}

end;

s:=s/10;

for i:=1 to 10 do

if a[i]>s then p:=p+1;

if p mod  2= 0 then {проверка на четность}

                          for i:=1 to 10 do a[i]:=a[i]+i

                             else 

                                        begin

                                        k:=a[5];

                                        a[5]:=a[6];

                                        a[6]:=k; {обмен значений а5 и а6. если считать их центральными элементами, через третью переменную}

                                        end;

writeln; {дабы у вас ничего не слиплось}

for i:=1 to 10 do write (a[i]:4); {вывод полученного массива на экран} 

end.