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

В одномерном массиве, состоящем из 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы