В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для обозначения логической операции
«И» – символ «&».В таблице выше приведены запросы и количество.
Запрос
Найдено страниц (в тыс.)
Химия
3300
Биология
2200
Химия | Биология
4400
Какое количество страниц (в тыс.) будет найдено по запросу
Химия & Биология? Считается, что все запросы выполнялись практически
одновременно, так что набор страниц, содержащих все искомые слова, не
изменялся за время выполнения запросов.

Консольное приложение:
const n=9; 
var l:array[1..n] of integer;
i,max,imax,min,imin,s:integer; 
begin
Randomize;
writeln('Массив L:');
for i:=1 to n do
 begin
 l[i]:=random(51);
 write(l[i]:4);
 end;
writeln;
max:=l[1]; imax:=1;
min:=l[1]; imin:=1;
for i:=2 to n do
 begin
 if l[i]>max then begin max:=l[i]; imax:=i; end;
 if l[i]<min then begin min:=l[i]; imin:=i; end;
 end;
writeln('max = l[',imax,'] = ',max);
writeln('min = l[',imin,'] = ',min);
s:=0;
if imax>imin
 then for i:=imin+1 to imax-1 do s:=s+l[i]
 else for i:=imax+1 to imin-1 do s:=s+l[i];
writeln('s = ',s);
end.

Пример:
Массив L:
  31  49  41  15   9  47  37  11  27
max = l[2] = 49
min = l[5] = 9
s = 56

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ReadArrInteger('Вводите данные:',n); a.Println;
  var s:=a.Where(x->(x>9) and (x<100) and (x mod 10=7));
  if s.Count=0 then Writeln('Таких чисел нет')
  else Writeln(s.Sum)
end.

Пример
n= 5
Вводите данные: 45 -38 27 -17 47
45 -38 27 -17 47
74

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

function Sod(n:integer):integer;
begin
  var s:=abs(n).ToString;
  Result:=s.Select(c->c.ToDigit).Sum
end;

begin
  var a:=ArrRandom(ReadInteger('n='),-999,999); a.Println;
  a:=a.Select(x->Sod(x)).ToArray; a.Println
end.

Пример
n= 10
-252 814 -239 -157 792 -223 697 -482 616 -675
9 13 14 13 18 7 22 14 13 18

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ReadArrInteger('Вводите данные:',n); a.Println;
  Writeln('Четных чисел ',a.Where(x->x.IsEven).Count);
  Writeln('Нечетных чисел ',a.Where(x->x.IsOdd).Count);
end.

Пример
n= 16
Вводите данные: 34 -345 21321 643 1 0 325 2312 236 -324 -3242 7 12 7 12 50
34 -345 21321 643 1 0 325 2312 236 -324 -3242 7 12 7 12 50
Четных чисел 9
Нечетных чисел 7