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

640*480=307200

256 цветов кодируется 1-м байтом

307200 байт

512кбайт=524288 байт

не более 1 страницы

а) наименование товаров, цена за единицу товара, количество каждого товара

б) общая сумма покупки, сумма денег переданная продавцу

в) программа телепередач, название фильма

г) набор значений углов и сторон треугольника, должна быть известна хотя бы одна сторона треугольника и еще две величины(углы или стороны)