В одномерном
массиве, состоящем из 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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.