Водномерном массиве, состоящем из n целых элементов, вычислить: сумму модулей элементов массива, меньших числа x . паскаль

Const   n = 15; var   a: array[1..n] of integer;   i, s, x: integer; begin   writeln('введите значение х');   readln(x);   randomize;   for i : = 1 to n do       a[i] : = random(100) - 50;   // случайные числа в интервале [-50..50]   s : = 0;   for i : = 1 to n do       if (a[i]) < x then           s : = s + abs(a[i]);   writeln('исходный массив');   for i : = 1 to n do       write(a[i]: 4);   writeln;   writeln('искомая сумма: ', s: 3) end. контрольный пример: введите значение х 5 исходный массив   17 -11    4  35 -13 -47    3  25 -50    4  28  33  -6  49 -48 искомая сумма: 186

pascalabc.net

begin

  var p : = readinteger('p =');

  var a : = arrrandom(p, -99, 99);

  a.println;

  var q : = a.findindex(r -> r < 0);

  if q > -1 then

  begin

    var b : = a? [: q].where(r -> r.iseven).toarray;

    print('первый массив: ');

    b.println;

    var c : = a? [q: ].where(r -> r.isodd).toarray;

    print('второй массив: ');

    c.println;

  end

  else

    println('в массиве нет отрицательных элементов')

end.

Переночевав в гостинице в Гуаякиле, мы сели к агенту в машину и поехали на судно в Пуэрто Боливар. Доехали вопреки ожиданиям быстро, примерно за 3-4 часа. Погода была пасмурная и даже не смотря на то, что мы находимся недалеко от экватора, было прохладно. Почти все время, пока мы ехали, по обе стороны дороги были банановые плантации, но все равно в голове не укладывается: эти бананы грузят на суда в нескольких портах Эквадора десятками тысяч тонн каждый день, круглый год. Это ж несчастные бананы должны расти быстрее чем грибы.

Дороги.

Дороги в Эквадоре практически идеальные, хотя населенные пункты выглядят очень бедно. На дорогах много интересных машин, например очень много грузовиков - древних Фордов, которые я никогда раньше не видел. А еще несколько раз на глаза попадались старенькие Жигули :) А еще если кого-то обгоняешь и есть встречная машина, она обязательно включает фары. На больших машинах - грузовиках и автобусах, обязательно красуется местный тюнинг: машины разукрашенные, либо в наклейках, и обязательно везде огромное множество светодиодов, как будто новогодние елки едут и переливаются всеми цветами.

Судно.

На первый взгляд судно неплохое, в относительно хорошем состоянии, хотя и 92 года постройки. Экипаж 19 человек - 11 русских и 8 филиппинцев, включая повара. Говорят, периодически становится тоскливо от егошних кулинарных изысков. Филиппинцы здесь рядовой состав, за ними постоянно нужно следить чтобы не натворили чего, среди них только один матрос по-настоящему ответственный и с руками из нужного места, все понимает с полуслова. Остальные - типичные Равшаны да Джамшуты. А еще один из них - гомосек О___о, в добавок к этому он опасный человек, в том плане, что легко впадает в состояние ступора и отключает мозг: был случай как он закрыл одного матроса в трюме, тот орал и тарабанил внутри, это заметил боцман, начал орать на этого персонажа, который, в свою очередь испуганно выпучив глаза, трясущимися руками продолжал закручивать барашки. В итоге боцман его отодвинул и выпустил матроса из трюма. Общение на английском языке, но из-за акцента не всегда с первого раз понятно что филиппинцы говорят, особенно по рации. Напимер, говорит он тебе: Бикарпуль! Бикарпуль! А потом, когда уже поздно, выясняется что это было "

Объяснение: