В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для логической операции «И» — символ «&». В таблице приведены запросы и количество найденных по ним страниц некоторого сегмента сети Интернет.
Какое количество страниц (в тысячах) будет найдено по запросу Трапеция?
Считается, что все запросы выполнялись практически одновременно, так что набор страниц, содержащих все искомые слова, не изменялся за время выполнения запросов.
(Прямоугольник & Параллелограмм) | Трапеция = 570
Прямоугольник & Трапеция & Параллелограмм = 120
Прямоугольник & Параллелограмм = 190

1.
begin
write('  ');
var P:=ArrRandom(10,10,90).Println('     ');
var T:=P.Select((x,k)->(k+1) mod 2=0?real(x*(k+1)):real(x/(k+1))).ToArray;
for var i:=0 to T.Length-1 do write(T[i]:7:2);
end.

Пример:
  50     37     37     15     40     86     64     41     53     46
  50.00  74.00  12.33  60.00   8.00 516.00   9.14 328.00   5.89 460.00

2.
begin
var k:=ReadInteger('k = ');
var a:=ArrRandom(10,-20,20).Println;
var m:=a.Where(x->x<0).Max;
writeln('Макс.отрицательное = ',m,', ',m,'*',k,'=',m*k);
end.

Пример:
k =  5
15 10 -7 -13 -4 16 -12 -2 9 -12
Макс.отрицательное = -2, -2*5=-10

const

  n = 10; //количество элементов массива

var 

  a: array [1..n] of real;

  i: integer;

 

begin

  for i:= 1 to n do 

  begin

    writeln('Введите ', i, ' элемент массива');

    readln(a[i]); //вводим очередной элемент массива

  end;

  write('Исходный массив: ');

  for i:= 1 to n do 

    write(a[i], '  '); //Выводим исходный массив

  writeln; //Перевод на новую строку

  write('Полученный массив: ');

  for i:= 1 to n do

  begin 

    a[i]:= a[i] * a[n]; //элемент массива умножаем на последний элемент

    write(a[i], '  '); //выводим полученный элемент массива

  end;

end.