В одномерном массиве, состоящем из n целых элементов, вычислить:

1) Сумму модулей элементов массива, больших числа X
2)Сумму модулей элементов массива, меньших числа X

Const n=20;
var i:integer;
    sl,sg:longint;
    x:real;
    a:array[1..n] of integer;
begin
  Randomize;
  for i:=1 to n do a[i]:=random(1000)-500; // Случайные числа от -500 до 500
  sl:=0; sg:=0;
  writeln(Введите число Х);
  readln(x);
  for i:=1 to n do
    if a[i]  writeln(Сумма меньших: ,sl,  Сумма больших: ,sg)
end.

Пример решения:

Введите число Х
25
Сумма меньших: 1731  Сумма больших: 2407

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